Try using a list of chars
List(Of Char)
And once ready call ToArray method. In this way you do not need to deal with array sizes.
Something like
Dim myArray1 As List(Of Char) = TextBox1.Text.ToCharArray
Dim myArray2 As List(Of Char) = New List(Of Char)
For Each c As Char In myArray1
If c <> " " Then
myArray2.Add(c)
Else
Exit For
End If
Next
Cheers