Определить число введенных символов (отдельно строчных и прописных) - VB

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

Помогите пожалуйста! Мне нужен код программы ,которая должна подсчитывать число введенных символов(отдельно строчных и прописных) и выводить (при нажатии на commandButton) встреченные в тексте гласные буквы(отдельно строчные и прописные). Текст вводится пользователем в TextBox (ограничение : могут вводится только русские буквы и пробелы). Мне хотя бы отдельный отрывок кода: как выводить встреченные гласные и подсчитывать строчные и прописные буквы. Работаю на VisualBasic 6.0

Решение задачи: «Определить число введенных символов (отдельно строчных и прописных)»

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

                            Option Explicit
Dim i As Integer
Private Sub Command1_Click()
   Dim s As String, n As Integer, i As Integer
   Dim c  As Integer
   
   s = "йцукенг цу QWERTY Э ке ьт ЙЦУ иЁмс УКЕН рпеав"
   
   Print "Строка  :    "; s
   Print
   Print "Длина строки (всего) =  "; Len(s)
   Print
   
   For i = 1 To Len(s)
           c = c - (Mid$(s, i, 1) Like "[A-Za-zА-Яа-яЁё]")
   Next
   Print "Количество букв (всего) =  "; c
   Print
   c = 0
   For i = 1 To Len(s)
           c = c - (Mid$(s, i, 1) Like "[А-Яа-яЁё]")
   Next
   Print "Количество русских букв (всего) =  "; c
   Print
   c = 0
   For i = 1 To Len(s)
           c = c - (Mid$(s, i, 1) Like "[А-Я-Ё]")
   Next
   Print "Количество прописных русских букв (всего) =  "; c
   Print
   c = 0
   For i = 1 To Len(s)
           c = c - (Mid$(s, i, 1) Like "[АаОоЕеЁёУуЫыЯяИиЮюЭэ]")
   Next
   Print "Количество гласных русских букв (всего) =  "; c
   Print
   c = 0
   For i = 1 To Len(s)
           c = c - (Mid$(s, i, 1) Like "[АОЕЁУЫЯИЭЮ]")
   Next
   Print "Количество прописных гласных русских букв (всего) =  "; c
   Print
End Sub
                        