Дана строка, состоящей из слов, слова отделены друг от друга одним пробелом. Определить длину каждого слова - VB

Private Sub Command1_Click()
a$ = "ssss ddddddddd ffffffff sd"
l Trim(a) & " ", 1
End Sub
 
Sub l(s$, k%)
If k < Len(s) Then
  d = InStr(k, s, " ")
      Print Mid(s, k, d - k); vbTab; d - k
   l s, d + 1
End If
End Sub