Android Question Conversion from String to Integer...impossible????

m = Regex.Matcher( "\d+ ", teststring)
if m.find then
firstnumber=m.Match.SubString2(0,m.Match.Length)

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.

    Dim lstIncomming As List
    Dim arrID(3) , arrAddress(3), arrProtocol(3) as Int
    Dim arrName(3) As String

End Sub

Sub Activity_Create(FirstTime As Boolean)

    lstIncomming.Initialize
    lstIncomming.Add("1000 addr[75] protocol[DCC28] name[CC 72000]")
    lstIncomming.Add("1001 addr[752] protocol[DCC128] name[141R patrick]")
    lstIncomming.Add("1025 addr[4] protocol[DCC28] name[Y8000]")

    For  i = 0 To lstIncomming.Size - 1
        getID(lstIncomming.get (i), i)
        getAddress(lstIncomming.get(i) ,i)
        getProtocol(lstIncomming.get(i), i)
        getName(lstIncomming.get(i), i)
    Next

     For  i = 0 To 2
       Log  ("ID  " & arrID(i))
       Log  ("Address  " & arrAddress(i))
       Log  ("Protocol  " & arrProtocol(i))
       Log  ("Name  " & arrName(i))
     Next

End Sub

Sub getID(strRec As String , iRec As Int)
    Dim  iStart, iStop As Int
    iStart=0
    iStop=strRec.IndexOf("addr[") -1

    arrID(iRec) = strRec.SubString2(iStart,iStop)
End Sub

Sub getAddress(strRec As String , iRec As Int)
    Dim  iStart, iStop As Int
    iStart=strRec.IndexOf("addr[") +5
    iStop=strRec.IndexOf("] protocol")

    arrAddress(iRec) = strRec.SubString2(iStart,iStop)
End Sub

Sub getProtocol(strRec As String , iRec As Int)
    Dim  iStart, iStop As Int
    iStart=strRec.IndexOf("protocol[") + 9
    iStop=strRec.IndexOf("] name")

    arrProtocol(iRec) = strRec.SubString2(iStart,iStop)
End Sub

Sub getName(strRec As String , iRec As Int)
    Dim  iStart, iStop As Int
    iStart=strRec.IndexOf("name[") +5
    iStop=strRec.Length - 1

    arrName(iRec) = strRec.SubString2(iStart,iStop)
End Sub

Dim ID() As Int

ID(120) As Int

Sub SplitRecord
Dim DataIn As String
Dim Id As Int
Dim addr As String
Dim protocol As String
Dim name As String
 
 
DataIn="1000 addr[75] protocol[DCC28] name[CC 72000]"
DataIn=DataIn.Replace(" addr",",")
DataIn=DataIn.Replace(" protocol",",")
DataIn=DataIn.Replace(" name",",")
DataIn=DataIn.Replace("[","")
DataIn=DataIn.Replace("]","")
'"1000,75,DCC28,CC 72000"  Converted into array
 
 
Dim Data() As String
Data=Regex.Split(",",DataIn)
Id=Data(0)
addr=Data(1)
protocol=Data(2)
name=Data(3)
Log (Id & " " & addr & " " & protocol & " " & name)
End Sub