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

    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