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

Формулировка задачи:

Ребята поправте код плз, чтото он у меня не работает. вот задача Дана текстовая строка. Группы символов, разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем называть словами. Найти количество слов, у которых первый и последний символы совпадают между собой. Код

Private Sub Command1_Click()
Dim S As String
Dim S1 As String
Dim i As Byte
S = InputBox("Введите текст", "Ввод текста для обработки")
S = Len(S)
i = 0
Do While S > 0
    Trim (S)
    S1 = Left(S, InStr(S, " "))
    S = Right(S, S - S1)
        If Left(S1, 1) = Right(S1, 1) Then
        i = i + 1
        End If
Loop
Print i
End Sub

Решение задачи: «Найти количество слов, у которых первый и последний символы совпадают между собой»

textual
                            Листинг программы 
                        

                            s = "<TAG>  Г®Г°ГЈГ*Г§Г¬ Г¬Г*Г°Г*Г§Г¬ Г¬Г*ГЈ\ГµГ*Г¬ Г¬ГіГЄГ* Г*ГЇГҐГ«ГјГ±ГЁГ* Г*ГЁГЄГ®Г* Г*Г®ГЈГ* ГЂГ«Г¬Г*-ГЂГІГ* Г*ГўГ*ГІГ*Г° Г°Г*Г¤Г*Г° Г°Г*Г§ГўГ®Г¤ Г¤Г®ГµГ®Г¤?   </TAG>"
    With CreateObject("VBScript.RegExp"): .Global = True: .IgnoreCase = True
        .Pattern = "(?:^|\s)(\S).*?\1(?=\s|$)"
        Set ms = .Execute(s)
        MsgBox ms.Count
    End With
                        