Дано предложение из трех слов найти длину каждого слова

Private Sub Command1_Click()
Picture1.Cls
Dim A As String
Dim N As Integer
Dim I As Integer
Dim K As Integer
If Text1.Text = "" Then
MsgBox "Введите предложение", vbOKOnly, "Ошибка"
Else
A = Text1.Text
N = Len(A)
For I = 1 To N
If Mid(A, I, 1) = " " Then A1 = Left(A, I - 1): A2 = Mid(A, N, 1): A3 = Right(A, N - I)
Next I
N1 = Len(A1): N2 = Len(A2): N3 = Len(A3)
Picture1.Print ""; N1
Picture1.Print ""; N2
Picture1.Print ""; N3
End If
End Sub

Dim a$(), asd$
asd = "  предложение    три      слова   "
asd = Trim(asd) 'убираем пробелы в начале и конце предложения
Do While InStr(1, asd, "  ") > 0 'удаляем задвоенные пробелы
asd = Replace(asd, "  ", " ")
Loop
a() = Split(asd, " ") 'заносим слова в массив
MsgBox a(0) & " - " & Len(a(0)) & " символов" & Chr(10) & Chr(13) & a(1) & " - " & Len(a(1)) & " символов" & Chr(10) & Chr(13) & a(2) & " - " & Len(a(2)) & " символов"

Option Explicit
Dim tx As String, ds As String, i1%, i2%, d%
Const p = " "
 
Private Sub cmd1_Click()
    tx = txt1.Text
    tx = p + tx + p
    i1 = 1
    
    Do
        i2 = InStr(i1 + 1, tx, p)
        d = i2 - i1 - 1
        ds = ds + Str(d) + ", "
        i1 = i2
    Loop Until i1 = Len(tx)
 
    ds = Left(ds, Len(ds) - 2)
    txt2.Text = ds
End Sub