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

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