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

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

Нужно в 6 Visul Basic с помощью массива сделать следующее: ввести текст длиной до 254 символов в виде строки символов.Подсчитать сколько в строке символов, совпадающих с символом цифры,введеной с клавиатуры. Использовать функции для работы с данными символьного типа.результатом должно быть сообщение о найденном значении или об отсутствии значения и это же сделать с массивами. помогите плиз!!!

например: "мама ела кашу" ввод с клавы, поиск буквы "а" вывод: буква "а" встречается 4 раза,то бишь а = 4

Решение задачи: «Массив: подсчет символов в строке»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
Dim stroka As Variant ,k As Byte, i As Integer, char As String
stroka = InputBox("введите текс")
char = InputBox("введите символ")
k = 0
 
Dim a(254)
For i = 1 To 254
a(i) = Mid(stroka, i, 1)
If a(i) = Char Then k = k + 1
Next i
 
Print "текст веденный с клавиатуры = "; stroka
Print "символ веденный с клавиатуры = "; char
If k = 0 Then 
Print "Net takix";
Else
Print "всего сиволов веденных с клавиатуры = "; k
End If