VB 6, подсчет букв в словах предложения

[Leonid+]

В словах предложения определить количсетво букв.
Например: На улице идёт дождь
Количество букв в словах: 2,5,4,5
получается начало, дальше не знаю как, подскажите пожалуйста.

Option explicit
Dim i, j As Integer
Dim a As String
a=InputBox ("Введите предложение" , "Ввод)

i - переменная, определяющая кол-во слов в предложении

j- переменная, определяющая кол-во букв в словах
Заранее Спасибо!

[gaw4]

для предложений без зпт, точек и т.д.

Option Explicit
Dim i, j As Integer
Dim a As String
Dim m
Private Sub Command1_Click()
a = InputBox("Введите предложение", "Ввод")
Do While InStr(1, a, "  ") > 0
a = Replace(a, "  ", " ")
Loop
m = Split(Trim(a), " ")
a = a & vbLf & String(2*Len(a), ".")
For i = LBound(m) To UBound(m)
a = a & vbLf & m(i) & vbTab & Len(m(i)) & "  бкв."
Next
MsgBox a
End Sub

[Leonid+]

Спасибо за ответ. работает отлично, но как мне кажется мне не поверят, что это сделал я)
вот я набросил простой вариант для этой задачи

Option Explicit
Dim b(1 to 20), i, j , n, lAs Integer
Dim a,c  As String
Private Sub Command1_Click()
a = InputBox("Введите предложение", "Ввод")
l=Len(a)
j=1
b(j)=0
for i=1 To 
c=Mid(a, i, l)
If  c <> " " Then
b(j) = b(j) +1
Else
j=j+1
b(j)=0

End Sub

подскажите, пожаулуйста, как продолжить дальше программу.