Найти в строке слова, которые начинаются и оканчиваются одной и той же буквой

Sub www()
Dim st$, txt$, slovo$, simv$, i&
st = "Дана строка. Aquila non captat muscas. Per aspera ad astra."
'будем искать слова, которые состоят более чем из одной буквы, которые начинаются и оканчиваются одной и той же буквой
 
st = st & " " 'добавляем пробел к строке, чтобы не делать дополнительную проверку после цикла
For i = 1 To Len(st) 'пробегаем всю строчку посимвольно
    simv = Mid(st, i, 1) 'вырезаем очередной символ
    If simv >= "A" And simv <= "я" Then 'если символ является буквой (здесь A - латинская, я - кириллическая), то
        slovo = slovo & simv 'добавляем очередную букву к текущему слову
    Else 'иначе слово закончилось
        If Len(slovo) > 1 And LCase(Left(slovo, 1)) = LCase(Right(slovo, 1)) Then txt = txt & slovo & Chr(10)
        'проверяем текущее слово на то, что оно состоит более чем из одной буквы и первая и последняя буквы совпадают
        'и в случае успеха, добавляем это слово к строковой переменной "txt"
        slovo = "" 'обнуляем слово, для того чтобы составить следующее
    End If
Next i
 
MsgBox txt
End Sub