Разбить текст (ФИО) из одного TextBox на 3 отдельных TextBox - VB

Формулировка задачи:

На форме 4 TextBox, 1 CommandButton Необходимо, что бы после введения в текстовое поле при нажатии на кнопку ФИО распределялось по отдельным текстовым полям... фамилия в одно поле, имя в другое а отчество в третье. код работает, только если в текстовом поле вводить в конце пробел... )))) ... Если ставлю в коде вместо пробела общее кол-во символов то не работает вообще... Подскажите что за чудеса...

Private Sub Command1_Click()
Dim I, K, L, M As Integer
Dim slovo1, slovo2, slovo3 As String
M = Len(Text1.Text) ' Len - вычисляем количество символов в строке
 
For I = 1 To M
If Mid(Text1.Text, I, 1) = " " Then 'наткнулись на пробел, значит у нас есть слово, i - это номер буквы в слове
 
      For K = I + 1 To M
      If Mid(Text1.Text, K, 1) = " " Then
 
             For L = K + 1 To M
             If Mid(Text1.Text, L, 1) = " " Then
  
                             Text2.Text = slovo1
                             Text3.Text = slovo2
                             Text4.Text = slovo3
             Else
                 slovo3 = slovo3 & Mid(Text1.Text, L, 1)
             End If
             Next L
      Else
        slovo2 = slovo2 & Mid(Text1.Text, K, 1)
      End If
      Next K
      
Else
  slovo1 = slovo1 & Mid(Text1.Text, I, 1)
End If
Next I
End Sub

Решение задачи: «Разбить текст (ФИО) из одного TextBox на 3 отдельных TextBox»

textual
                            Листинг программы 
                        
                            If Mid(Text1.Text, L, 1) = M Then