В исходной строке анайти и вывести слова, в которых первая буковка

Dim s, s1, s0, t As String        'строчка, 1-ая буква слова, слово, перечень подходящих слов
s = InputBox("Введите строчку:")
Do
    Do
        n = n + 1
        If s1 = "" Then s1 = Mid(s, n, 1)            'запоминаем первую букву слова
        If Mid(s, n, 1) = s1 Then m = m + 1       'считаем, сколько раз она повстречалась
        s0 = s0 amp; Mid(s, n, 1)                          'запоминаем слово
        If n gt; Len(s) Then Exit Do
    Loop While Mid(s, n, 1) lt;gt; " "
If m = 1 Then t = t amp; s0                                 'переносим слово в перечень
m = 0                       'скидываем промежные переменные в начальное состояние
s1 = ""
s0 = ""
Loop Until n gt; Len(s)
If t = "" Then t = "Разыскиваемых слов нет"
MsgBox (t)