В заданной строке определить количество слов, начинающихся и заканчивающихся на одну и ту же букву

Dim a(), s, b As String
Dim k, l, m, n, p As Integer
 List1.Clear
Randomize
k = Int(Rnd(1) * 30 + 1) 'ñîçäàåì ñòðîêó ñëîâà ðàçäåëåíû ","
For i = 1 To k
l = Int(Rnd(1) * 5 + 2)
For j = 1 To l
 s = s & Chr(Int(Rnd(1) * 12 + 97))
Next j
s = s & ","
Next i
Text1.Text = s
 
List1.AddItem "ñëîâà"
ReDim a(1 To k)                 'ïðåâðàùàåì ñòðîêó â ìàññèâ, ñëîâo ýëåìåíò ìàññèâà
For i = 1 To Len(s)
n = n + 1
 If Mid(s, i, 1) = "," Then
  m = m + 1
  a(m) = Mid(s, i + 1 - n, n - 1)
  List1.AddItem a(m)
  n = 0
 End If
Next i
 
List1.AddItem "îäèíàêîâûå áóêâû "
For i = 1 To k             'èùåì ñëîâà ñ îäèíàêîâîé ïåðâîé è ïîñëåäíåé áóêâîé
 If Left(a(i), 1) = Right(a(i), 1) Then
  p = p + 1
 List1.AddItem a(i)
 End If
Next i
List1.AddItem "÷èñëî ñëîâ "
List1.AddItem p

List1.AddItem "слова"
ReDim a(1 To k)                 'превращаем строку в массив, словo элемент массива
For i = 1 To Len(s)
n = n + 1
 If Mid(s, i, 1) = "," Then
  m = m + 1
  a(m) = Mid(s, i + 1 - n, n - 1)
  List1.AddItem a(m)
  n = 0
 End If
Next i

List1.AddItem "слова"
 a = Split(s, ",")            'превращаем строку в массив, словo элемент массива
For i = 1 To k
  List1.AddItem a(i - 1)
Next i

Dim a() As String
Dim k, l, p As Integer
 List1.Clear
Randomize
k = Int(Rnd(1) * 30 + 1) 'ñîçäàåì ìàññèâ ñòðîê
ReDim a(1 To k)
List1.AddItem "ñòðîêè"
ReDim a(1 To k)
For i = 1 To k
 l = Int(Rnd(1) * 15 + 3)
For j = 1 To l
  a(i) = a(i) & Chr(Int(Rnd(1) * 15 + 97))
Next j
List1.AddItem a(i)
Next i
 
List1.AddItem "îäèíàêîâûå áóêâû "
For i = 1 To k             'èùåì ñòðîêè ñ îäèíàêîâîé ïåðâîé è ïîñëåäíåé áóêâîé
 If Left(a(i), 1) = Right(a(i), 1) Then
  p = p + 1
 List1.AddItem a(i)
 End If
Next i
List1.AddItem "÷èñëî ñòðîê "
List1.AddItem p

 a = Split(s, ",")

 Dim a(), s As String
        Dim k, l, p As Integer
        List1.Items.Clear()
        p = -1
        k = TextBox3.Text 'кол-во слов
        s = Text1.Text
 
        List1.Items.Add("слова")
        a = Split(s, " ")            'превращаем строку в массив, словo элемент массива
        For i = 1 To k
            List1.Items.Add(a(i - 1))
        Next i
 
        List1.Items.Add("одинаковые буквы ")
        For i = 1 To k             'ищем слова с одинаковой первой и последней буквой
            If Microsoft.VisualBasic.Left(a(i), 1) = Microsoft.VisualBasic.Right(a(i), 1) Then 'выход за пределы массива блаблабла...
                p = p + 1
                List1.Items.Add(a(i))
            End If
        Next i
        List1.Items.Add("число слов ")
        List1.Items.Add(p)

List1.Clear
Dim a() As String
ReDim a(1 To Val(Text1.Text))
For i = 1 To Val(Text1.Text)
 a(i) = InputBox("Ââeäè ñòðîêó")
 List1.AddItem a(i)
Next i

 Dim a() As String
        Dim k, p As Integer
        ListBox1.Items.Clear()
        ReDim a(0 To Val(TextBox1.Text))
        For i = 1 To Val(TextBox1.Text)
            a(i) = InputBox("Ввeди строку")
            ListBox1.Items.Add(a(i))
        Next i
        For i = 1 To k             'ищем строки с одинаковой первой и последней буквой
            If Microsoft.VisualBasic.Left(a(i), 1) = Microsoft.VisualBasic.Right(a(i), 1) Then
                p = p + 1
                ListBox1.Items.Add(a(i))
            End If
        Next i
        ListBox1.Items.Add("число строк ")
        ListBox1.Items.Add(p)

 For i = 1 To Val(TextBox1.Text)

k=val(textbox1.text)

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

Option Compare Text
Sub Command1_Click()
 Dim s As Variant, kol As Integer, n As String, k As String
  s = Trim(Replace(Replace(InputBox("Введите текст", _
      "Ввод текста для обработки", _
      " Это строка для обработко. Итоги."), _
      ".", " "), ",", " ")) & Space(1) 'Убир.проб.спр.-слева, заменяем точ.и зап.на проб., в конце ставим пробел.
   While InStr(1, s, "  ")
     s = Replace(s, "  ", " ") ' Тут убираем длинные пробелы
   Wend
   n = Mid(s, 1, 1)     ' Переменной n присваиваем значение первого символа
   For i = 1 To Len(s)
       If Mid(s, i, 1) = " " Then ' Если встречается пробел, то
        k = Mid(s, i - 1, 1)        'Переменной k присваивается значение предыдущего символа
        If n = k Then kol = kol + 1 ' Если переменные начала и конца совпадают, то увеличиваем kol
            ' Print n & k
            ' k = 0:  n = 0 '         Обнуляем переменные начала и конца
            n = Mid(s, i + 1, 1) 'Переменной присваиваем значение первого символа
        End If
    Next i
  Print "Kоличество слов, у которых первый и последний " & vbCrLf _
        & "символы совпадают между собой = "; kol
End Sub