retval

Ответ от Ev[гуру]
Начало программы у вас почти правильное.
Строку надо разбить на слова и поместить их в массив (разделитель - пробел)
retval = Split(stroka, " ")
Затем в цикле перебрать массив на наличие слов с первой буквой "b"
Dim i As Integer, Count As Integer
For i = 0 to Ubound(retval)
If Mid(retval(i),1,1) = "b" Then Count = Count + 1
Next i
' Печатаем результат прямо на форму
Print "Всего слов с первой буквой b " & Count
Все...
Ev
Высший разум
(116333)
Dim retval As Variant
Dim stroka As String
stroka = " Здравствуйте уважаемая Белла"
retval = Split(stroka, " ")
Мы указываем функции Split строку и разделитель (в данном случае - пробел " " )
Функция разделяет предложения на слова, создает из переменной retval массив и помещает в этот массив слова.
Т. е. теперь в retval будет храниться
retval (0) ' Здравствуйте
retval (1) ' уважаемая
retval (2) ' Белла
Ну а массивы мы можем перебирать в цикле...
Я доступно объяснил, все понятно?