Определить количество слов с одинаковыми буквами в начале и конце

   Sub Solution(ByVal InputWord As String)
        Dim fwprf, lwprf, fw, lw As String 'fwprf/lwprf - с чем сравниваем; fw/lw - сравниваемые
        Dim a, b As Integer
        Dim out As String
        Dim word() As String = InputWord.Split(" ") 'разбиваем входящую строку по пробелам на слова в массиве ворд()
        For i As Integer = 0 To UBound(word) 'В каждом слове массива ворд ищем первую фв и последнюю лв букву
            fwprf = word(i).Substring(1, 1) 'Взяли первую букву в слове для сравнения
            lwprf = word(i).Substring(word.Length - 1, 1) 'Взяли последнюю букву в слове для сравнения
            For j As Integer = 0 To UBound(word) 'еще проходим массив для сравнения
                fw = word(j).Substring(1, 1) 'запоминаем опять первую и последнюю буквы
                lw = word(j).Substring(word.Length - 1, 1)
                If fw = fwprf And lw = lwprf Then 'условный оператор
                    a = i 'запоминаем номера слов с одинаковыми первой и последней буквой
                    b = j
                End If
                out += word(i) + Space(2) + word(j)
            Next
        Next
 
 
    End Sub

Dim str As String = " апра гдлг вшап оаыд енге юзхю"
Dim strm() As String = str.Split({Chr(32)}, System.StringSplitOptions.RemoveEmptyEntries)
Dim wrd As New List(Of String)
Dim m As Integer
For Each s As String In strm
    If s(0) = s(s.Length - 1) Then
        m += 1
        wrd.Add(s)
    End If
Next
MsgBox(m.ToString & vbCrLf & String.Join(vbCrLf, wrd))