Как подсчитать количество символов в строке - VB

Sub Liss_Ксюша()
'Дана текстовая строка.
Dim T As String
T = InputBox("Дайте текстовую строку:", , "Группы символов, разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем называть словами.")
 
'Группы символов, разделенные пробелами (одним или несколькими)
'и не содержащие пробелов внутри себя, будем называть словами.
Dim s() As String 'массив
s = Split(trim$(T)) 'слов
 
'Подсчитать количество символов “a” в последнем слове данной строки
Dim a() As String
a = Split(s(UBound(s)), "а", , vbTextCompare)
MsgBox "В слове """ & s(UBound(s)) & """ " & UBound(a) & " букв(а|ы) ""а"""
End Sub