[KnRSU]

Код:

Sub Шалахан()  
Dim S As String  
Dim k As Long
Dim n As Double  
Dim dat() as String
Dim i as Long
k = 0
'Получаем значение n
n = Val(InputBox("Введите n") & "")
'Получаем текст
S = InputBox("Введите текст") & ""
'Избавляемся от двойных пробелов во введенном тексте
S = Replace(S, "  ", " ")
'Создаем из текста массив слов которые он содержит
dat() = Split(S, " ")
'Обходим все слова в тексте по циклу
For i = 0 to Ubound(dat)
   'Если длинна очередного слова менее чем n
   If Len(dat(i)) < n Then
      'Наращиваем количество найденных слов
      k = k + 1  
   End If
Next i
'Выводим результат работы
MsgBox "Количество слов у которых длинна меньше чем " & n & " ровно " & k
End Sub