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

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

S = InputBox("Введите текст", "Ввод текста для обработки") ' получили в переменую S исходную строку
 S = Len(S)' зачем-то заменили исходную строку на значение её длены в строковом формате
 i = 0' обнулили счётчик
 Do While S > 0' пока строка больше 0: S As String сравнивать строку с 0???
 Trim (S)' тут я не знаю что должно было сделаться
 S1 = Left(S, InStr(S, " "))' ищем пробел в числе в строково формате. Откуда он там может взяться?
потом если находим, берём какое-то количество символов. типа если вдруг число окажется "12 54"
возмём "12"(S1 As String)
 S = Right(S, S - S1)' здесь берем правые символы в количестве.. Даже трудно придумать каком.

Option Compare Text
Sub Command1_Click()
 Dim s As Variant, kol As Integer
 
 
  For Each s In Split(Replace(InputBox("Введите текст", _
                      "Ввод текста для обработки", _
                      "Это строка для обработко. Итоги."), _
                                                  ".", " "))
    If Left(s, 1) = Right(s, 1) And Len(s) > 1 Then
      Print s: kol = kol + 1
    End If
  Next s
  
  Print
  Print "Kоличество слов, у которых первый и последний " & vbCrLf _
        & "символы совпадают между собой = "; kol
End Sub

s = "оргазм маразм маг\хам мука апельсин никон нога Алма-Ата аватар радар развод доход?"
    With CreateObject("VBScript.RegExp"): .Global = True: .IgnoreCase = True
        .Pattern = "(?:^|\s)([А-ЯЁ]).*?\1(?=\s|$)"
        Set ms = .Execute(s)
        MsgBox ms.Count
    End With

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