Определение количества гласных и согласных в написанной фразе - VB

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

Текст задачи: "Создать программу - Определение количества гласных и согласных в написанной фразе". Там есть один пункт, а именно: показывать гласные и согласные в процессе ввода. Как это можно реализовать? Я пока придумал только при вводе фразы окрашивать каждую букву в соответствующий цвет, например, гласные - красный, согласные - синий. Но не знаю, как это реализовать. Возможно, может кто-нибудь подсказать? Или подсказать другое решение поставленного вопроса? Заранее спасибо

Решение задачи: «Определение количества гласных и согласных в написанной фразе»

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

                            Option Explicit
Private Sub Text1_Change()
Const G = "аеёиыоуэюя"
Const S = "бвгджзйклмнпрстфхцчшщ"
Dim I As Long
Label1 = "": Label2 = ""
For I = 1 To Len(Text1)
  If InStr(1, G, Mid$(Text1, I, 1), vbTextCompare) Then
    Label1 = Label1 & Mid$(Text1, I, 1)
  ElseIf InStr(1, S, Mid$(Text1, I, 1), vbTextCompare) Then
    Label2 = Label2 & Mid$(Text1, I, 1)
  End If
Next I
End Sub
                        