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

option explicit
 
sub main()
  dim sentence$, slovo
  sentence = inputbox("Введите предложение",,"Клюет, и бросает, и смотрит в окно, как будто со мною задумал одно.")
  for each slovo in split(ClearPunctuation(lcase(sentence)))
    if left$(slovo,1)=right$(slovo,1) then debug.? slovo
  next
end sub
 
Function ClearPunctuation(byval St as String)
  dim i&, L$
  For i = 1 To Len(St)
    L = Mid$(St, i, 1)
    If L Like "[!A-Za-zА-яҐЁЄЇіґёєї'‘’-]" Then Mid$(St, i, 1) = " "
  Next
  St = Replace$(St, " - ", " ")
  St = Trim(St)
  Do
    i = Len(St)
    St = Replace$(St, "  ", " ")
  Loop Until i = Len(St)
  ClearPunctuation = St
End function

Sub Task(ByVal Sent As String)
      Sent=Sent & " "
      l%=len(Sent)
      tmp$=""
      For i%=1 to l%
           s$=mid$(Sent,i%,1)
           Select Case(s$)
             Case " ", ",", ";", ".", "!", "?","-"
                  If tmp$<>"" And Left$(tmp$,1)=Right$(tmp$,1) then Debug.Print tmp$
                  tmp$=""
             Case else
                  tmp$=tmp$ & s$
           End Select
       Next i%
End Sub

Sub Test
      Task "окно как одно из двух"
End Sub
Sub Task(ByVal Sent As String)
      Sent=Sent & " "
      l%=len(Sent)
      tmp$=""
      For i%=1 to l%
           s$=mid$(Sent,i%,1)
           Select Case(s$)
             Case " ", ",", ";", ".", "!", "?","-"
                  If tmp$<>"" And Left$(tmp$,1)=Right$(tmp$,1) then Debug.Print tmp$
                  tmp$=""
             Case else
                  tmp$=tmp$ & s$
           End Select
       Next i%
End Sub

Option Explicit
Private Sub Form_Load()
    Dim Text As String, Out As String, i As Long, p As Long
    Text = "клюет, и бросает, и смотрит в окно, как будто со мною задумал одно"
    Text = Text & " "
    i = 1: p = 1
    Do Until i > Len(Text)
        Select Case Mid$(Text, i, 1)
        Case " ", ",", ".", "!", "?"
            If i - p > 1 And Mid$(Text, p, 1) = Mid$(Text, i - 1, 1) Then _
                Out = Out & " " & Mid$(Text, p, i - p)
            p = i + 1
        End Select
        i = i + 1
    Loop
    MsgBox Out
End Sub

If Len(tmp$) > 1 And Left$(tmp$, 1) = Right$(tmp$, 1) Then Debug.Print tmp$

If Len(tmp$) > 1