Определить долю гласных букв в заданном тексте - VB

Const GLAS$ = "аеёиоуыэюя"
Const SOGL$ = "бвгджзйклмнпрстфчцчшщ"
 
Dim stroka As String
Private Sub Command1_Click()
Dim g&, s&, i&
stroka = "Вот и наступило долгожданное лето."
For i = 1 To Len(stroka)
    If InStr(1, SOGL, Mid$(stroka, i, 1), vbTextCompare) Then
        s = s + 1
    ElseIf InStr(1, GLAS, Mid$(stroka, i, 1), vbTextCompare) Then
        g = g + 1
    End If
Next
 
Text1.Text = g & "   " & "или" & "    " & Format(g * 100 / (g + s), 0#) & " %" & "   Гласных букв"
Text2.Text = s & "   " & "или" & "    " & Format(s * 100 / (g + s), 0#) & " %" & "   Согласных букв"
 
End Sub