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

Const G = "аеёийоуэюя"
Const S = "бвгджзклмнпрстфхцч"
 
Private Sub RichTextBox1_Change()
T = RichTextBox1.Text: i = Len(RichTextBox1.Text) - 1: RichTextBox1.SelStart = i: RichTextBox1.SelLength = 1
RichTextBox1.SelColor = IIf(InStr(1, G, Mid(T, i + 1, 1)), RGB(255, 0, 0), IIf(InStr(1, S, Mid(T, i + 1, 1)), RGB(0, 0, 255), RGB(0, 255, 0)))
RichTextBox1.SelStart = i + 1
End Sub

Const S = "бвгджзйклмнпрстфхцчшщ"

Option Compare Text

Option Explicit
Option Compare Text
 
Const G = "[аеёиыоуэюя]"
Const S = "[бвгджзйклмнпрстфхцчшщ]"
 
Private Sub rtb_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 86 And Shift = 2 Then KeyCode = 0: rtb_KeyPress 22
End Sub
Private Sub rtb_KeyPress(KeyAscii As Integer)
    Dim c As String, i As Long
    If KeyAscii = 22 Then
        c = Clipboard.GetText(vbCFText)
        For i = 1 To Len(c)
            SelColor Mid$(c, i, 1)
            rtb.SelText = Mid$(c, i, 1)
        Next
        Exit Sub
    End If
    c = Chr$(KeyAscii)
    SelColor c
End Sub
Private Sub SelColor(c As String)
    Select Case True
    Case c Like G: rtb.SelColor = vbRed
    Case c Like S: rtb.SelColor = vbBlue
    Case Else: rtb.SelColor = vbBlack
    End Select
End Sub

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

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