Обработка строк

[Наташок]

Ввести текст.Вывести все слова с заданным количеством символов.Помогите пожалуйста,у меня что-т не получаеться)на vb
Sub Form_Load()
Dim s() As String, n As Integer, i As Integer, z As String
s = Split(InputBox("Введите строку"), " ")
n = CInt(InputBox("Введите количество символов"))
z = ""
For i = LBound(s) To UBound(s)
If (Len(s(i)) = n) Then
z = z + s(i) + vbCrLf
End If
Next i
MsgBox z
End
End Sub

[Busine2009]

Наташок
что не так?