Dim array As New List(Of String)
Sub CommandButton_Click Handles CommandButton.Click
   array.AddRange(TextBox.Text.Split(' '))
   TextBox.Text = String.Empty
End Sub

Dim cout As Integer ' глобальный, считает количество элементов в массиве
GSTR() - строковый массив, который заполняем
 
' код в commandbutton_click()
Dim s, e As Integer ' s - начало очередного слова,  e - позиция пробела в конце слова
Dim tmp As String
tmp = TextBox.Text ' сливаем текст из бокса в переменную
s = 1
e = InStr(s, tmp, " ")' ищем пробел
 
Do While e <> 0 ' выходим, как кончатся пробелы
GSTR(cout) = Mid(tmp, s, e - s) ' выдираем кусок от пробела до пробела
cout = cout + 1
s = e + 1
e = InStr(s, tmp, " ") 
Loop
 
GSTR(cout) = Mid(tmp, s, Len(tmp) - s + 1) ' добавляем последнее слово
cout = cout + 1
TextBox.Text = "" ' очистили текстбокс

Dim cout As Integer ' глоб. считает количество слов.
'GSTR() - строковый массив, который заполняем
'
'код в button_click()
Dim tmp As String
 
tmp=TextBox.Text
 
TextBox.Text="" ' очистили текстбокс
GSTR(cout)=Trim(tmp) ' добавляем слово в массив, трим уберает пробелы с краёв
cout=cout+1
If Right(tmp,1)=" " Then Unload Form ' если последний символ - пробел, то, например, выгружаем форму