Подсчитать количество слов в заданной строке - VB

Формулировка задачи:

Помогите пожалуйста с задачей. Дан текст. а) Подсчитать количество слов в данной строке. б) Подсчитать количесво букв "а" в последнем слове данной строки. в) Найти количество слов, начинающихся с буквы "б". г) Найти количество слов, у которых первый и последний символы совпадают между собой. д) Найти длину самого короткого слова.

Решение задачи: «Подсчитать количество слов в заданной строке»

textual
                            Листинг программы 
                        
 
                            
                        
Option Explicit
Option Compare Text
 
Private Sub Command1_Click()
Dim S As String, Word, i As Integer, lenShort As Integer, countSS As Integer
Dim countB As Integer, countWord As Integer, countA As Integer
    lenShort = 1000
    S = "Подсчитать количество абба слов бв данной стараке"
    Word = Split(S)
    countWord = UBound(Word) + 1
    countA = UBound(Split(Split(S)(UBound(Split(S))), "а"))
    For i = 0 To UBound(Word)
        If Left(Word(i), 1) = "б" Then countB = countB + 1
        If Left(Word(i), 1) = Right(Word(i), 1) Then countSS = countSS + 1
        If Len(Word(i)) < lenShort Then lenShort = Len(Word(i))
    Next i
    MsgBox "В строке '" & S & "' :" & vbCrLf & vbCrLf & _
           "Количество слов в строке  - " & countWord & vbCrLf & _
           "Количество букв 'а' в последнем слове  - " & countA & vbCrLf & _
           "Количество слов начинающихся на букву 'б'  - " & countB & vbCrLf & _
           "Количество слов, у которых первый и последний символы совпадают  - " & countSS & vbCrLf & _
           "Длина самого короткого слова  - " & lenShort
 
End Sub