Dim sLine As String
Dim iAt As Integer
Dim strList As List(Of String) = New List(Of String)
sLine = " 1 10 2"
sLine = Trim(sLine)
While (sLine <> "")
iAt = sLine.IndexOf(" ")
If iAt < 0 Then
strList.Add(sLine)
sLine = ""
Else
strList.Add(sLine.Substring(0, iAt))
sLine = Trim(sLine.Substring(iAt))
End If
End While
Above code is tested. strList will have 3 items.
You can use following to see what is in strList
For intCount = 0 To strList.Count - 1
MessageBox.Show("Value = " + strList(intCount))
Next
HTH
Ashok