Подсчитать, сколько слов в тексте оканчивается на букву а - VB

Sub Form_Load()
Const GLAS = "аяэеыиоёую"
Dim s$, i&
s = InputBox("Введите строку", , _
  "Из строки удалить все гласные звуки. Есть какая нибудь форма или прописать лучше все гласные буквы?")
For i = 1 To Len(GLAS)
  s = Replace$(s, Mid$(GLAS, i, 1), "", , , vbTextCompare)
Next
MsgBox "Бз глснх" & vbLf & s
End Sub