Why use split? why not use string simple functions?
TextBox1.Text.Trim()
Dim SpaceIndex As Integer = TextBox1.Text.IndexOf(" ")
MsgBox(SpaceIndex)
Dim First As String = TextBox1.Text.Substring(0, SpaceIndex)
Dim Last As String = TextBox1.Text.Substring(SpaceIndex + 1)
MessageBox.Show(First)
MessageBox.Show(Last)