Описать функцию, которая подсчитывает количество слов списка L, оканчивающихся заданной буквой

TxtInput.Text = ""

Private Sub Command1_Click()
Dim somecell As listcell
Dim newcell As New listcell
 If Not (topcell.info = "") Then
  Set somecell = topcell
   Do While Not (somecell.nextcell Is Nothing)
    Set somecell = somecell.nextcell
   Loop
  newcell.info = TxtInput.Text
  Set somecell.nextcell = newcell
 Else
  topcell.info = TxtInput.Text
 End If
TxtInput.Text = ""
End Sub

Option Compare Text
 
Function CountByLtr(arr, ltr) As Long
Dim x
For Each x In arr
  If Right$(x, 1) = ltr Then CountByLtr = CountByLtr + 1
Next
End Function

    Dim somecell As listcell
    Dim a As Integer
    
    wounput.Cls
    If Not (topcell.nextcell Is Nothing) Then
    
        Set somecell = topcell
        
        Do
            wounput.Print somecell.info
            Set somecell = somecell.nextcell
            a = a + 1
        Loop Until (somecell Is Nothing)
        
    Else
        wounput.Print topcell.info
    End If
    
    Print "Количество слов = "; a

    Dim somecell As listcell
    Dim swhatletter As String
    Dim a As Integer
    
    On Error Resume Next
    
    wounput.Cls
    swhatletter = Left(Txtletter.Text, 1)
    
    If Not (topcell.nextcell Is Nothing) Then
    
        Set somecell = topcell
        
        Do Until (somecell Is Nothing)
            If Right(somecell.nextcell.info, 1) = swhatletter Then a = a + 1
            wounput.Print somecell.info
            Set somecell = somecell.nextcell
 
        Loop
        
    Else
        wounput.Print topcell.info
    End If
    
    Print "Количество слов = "; a