Составить перечень всех гласных букв, имеющихся в строке - VB

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

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

Private Sub Command1_Click()
Dim stroka As Variant 'Объявляем переменную Varian для работы с числами и строками 'Переменные, описанные с типом данных Variant, могут содержать строку, дату, время, логические (Boolean) или числовые значения
Dim k As Byte, i As Integer
Dim char As String 'Объявляем переменную stroka для работы со строками
stroka = InputBox("введите текс") ' строка символов
char = InputBox("введите символ") ' вводим символ
k = 0
L = Len(stroka)
Print "Длина строки="; L          ' L - длина строки
Dim a(254)
For i = 1 To 254
a(i) = Mid(stroka, i, 1)
If a(i) = char Then k = k + 1 'Возвращает значение типа Variant (String), содержащее указанное число символов строки
Next i
Print "строка символов =   "; stroka
Print "символ веденный с клавиатуры = "; char
Print "всего одинаковых символов  = "; k
If k = 0 Then Print "Нет таких символов, которые ввели с клавиатуры ";
End Sub
 
Private Sub Command2_Click()
End
End Sub

Решение задачи: «Составить перечень всех гласных букв, имеющихся в строке»

textual
                            Листинг программы 
                        

                            Private Sub Command2_Click() 
Const Glas = "АОУЕЁИЫЮЯЭ"  'Гласные буквы (10?) 
Dim Txt As String   'Строка 
Dim Counters(1 To 10) As Integer 'Счетчики гласных букв 
Dim i As Integer, k As Integer, L As Integer 
Txt = UCase(InputBox("Введите текст","Подсчёт гласных букв" , "В ожидании длинноволосой я состряпал нехитрый ужин")) 
L = Len(Txt)    'Длина строки 
For i = 1 To L 
    k = InStr(Glas, Mid$(Txt, i, 1)) 
    If k > 0 Then Counters(k) = Counters(k) + 1 'Считаем гласные буквы 
Next i 
Cls 
Print "Строка " & Txt; " Длина строки " & L 
Print "Перечень гласных букв в строке:" 
For i = 1 To 10 
    If Counters(i) > 0 Then 
        Print " " & Mid$(Glas, i, 1) & " - " & Counters(i) 
    End If 
Next i 
End Sub
                        