ImputBox. Количество букв в предложении.

[Roll_Ru]

Здравствуйте, прошу вас сделать код (Visual Bacic), который подсчитает количество... допустим буквы "А" в предложении.
Выглядеть должно примерно так:
1)Нажимаем по кнопке
2)Видим окно ImputBox
3)Вводим предложение
4) Видим количество букв А ( через Print )

Буду благодарен, ибо сам так и не разобрался, хотя угробил часов 6.
Это школьное задание. Прошу сделать все банально и примитивно, а то мну не поверят. =)
Спасибо

[doober]

Самый примитивный код.На печать выведете сами

Private Sub Test()
MsgBox " Количество букв А в предложении =" & UBound(Split(InputBox("Вводим предложение ", "Подсчет букв"), "А", -1))
End Sub

[Roll_Ru]

Как я рад... как я рад.. Спасибо!