Найти самое короткое слово в строке - VB

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

нужно найти самое короткое слово в строке. я вот чет попробовал написать, но работать не хочет((( подскажите где ошибка?

Sub Resh(ByVal a As String, ByRef Dlinna As Integer, ByRef Slovo As String)
        Dim slovo1 As String
        Dim kol, j, m As Integer
        m = CInt(a.Length)
        Dlinna = m - 1
        j = 0
        kol = 0
        slovo1 = ""
        Do While j <= m - 1
            Do
                kol = kol + 1
                slovo1 = slovo1 + a.Substring(j, 1)
                j = j + 1
            Loop While a.Substring(j, 1) <> " "
            If kol < Dlinna Then
                Dlinna = kol
                Slovo = slovo1
            End If
        Loop
    End Sub

Решение задачи: «Найти самое короткое слово в строке»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim text, min, a, slovo
text = InputBox("text")
a = Split(text, " ")
min = Len(a(0))
slovo = a(0)
For i = 1 To UBound(a)
If Len(a(i)) < min Then min = Len(a(i)): slovo = a(i)
Next i
MsgBox slovo
End Sub
                        