Написать программу в VBA:определить во введенном тексте количество слов,начинающиеся с заданной буквы.

Держи. Так попроще. Только он знаки препинания не откидывает, но это на точность подсчета не влияет
Sub ttext()
Dim Words() As String
Dim text, tmp, sumbol, otvet As String
Dim i, counter As Integer

text = InputBox("Введите текст", "Подсчет количества начинающихся с заданной буквы ")
tmp = InputBox("Буква")
Words() = Split(text, " ")
If UBound(Words) >= 1 Then
For i = 0 To UBound(Words)
sumbol = Left(Words(i), 1)
If sumbol = tmp Then
counter = counter + 1
otvet = otvet + Words(i) + " "
End If
Next i
Else
If Len(text) > 0 Then
If Left(text, 1) = (tmp) Then
counter = counter + 1
otvet = otvet + text = " "
End If
End If
End If
If counter = 0 Then MsgBox (text & "Нет слов начинающихся с " & tmp) Else MsgBox (text & "Слова начинающиеся с " & tmp & " - " & counter & " : " & otvet)

End Sub

нужно выполнить цикл
в цыкле ищещь заданную букву с самого начала текста через if
далее ищещь "пробел" тоже через if пробел это будет знак того что ты прочитала побуквенно слово
в счётчике ставищь +1 и начинать цикл по новой

если нада код программы напиши мне на мыло