Dim s() As String = "some text with spaces".Split(" ") '/// fill the s() array with the words that are Split by the spaces.
Dim x As Integer
For x = LBound(s) To UBound(s)
MessageBox.Show(s(x))
Next
Dim StrString As String = "some text with spaces"
Dim s() As String = Split( StrString , " ")
Dim x As Integer
For x = LBound(s) To UBound(s)
MessageBox.Show(s(x))
Next