Дан произвольный русский текст. Проверить каких букв в нем больше: гласных или согласных - VB

Dim stroka As String
Private Sub Command1_Click()
stroka = "я люблю УГАТУ"
r = Split(stroka, "а") 'глассные
g = UBound(r)
r = Split(stroka, "е")
g = g + UBound(r)
r = Split(stroka, "ё")
g = g + UBound(r)
r = Split(stroka, "и")
g = g + UBound(r)
r = Split(stroka, "о")
g = g + UBound(r)
r = Split(stroka, "у")
g = g + UBound(r)
r = Split(stroka, "ы")
g = g + UBound(r)
r = Split(stroka, "э")
g = g + UBound(r)
r = Split(stroka, "ю")
g = g + UBound(r)
r = Split(stroka, "я")
g = g + UBound(r)
p = Split(stroka, "б") 'соглассные
s = s + UBound(p)
p = Split(stroka, "в")
s = s + UBound(p)
p = Split(stroka, "г")
s = s + UBound(p)
p = Split(stroka, "д")
s = s + UBound(p)
p = Split(stroka, "ж")
s = s + UBound(p)
p = Split(stroka, "з")
s = s + UBound(p)
p = Split(stroka, "й")
s = s + UBound(p)
p = Split(stroka, "к")
s = s + UBound(p)
p = Split(stroka, "л")
s = s + UBound(p)
p = Split(stroka, "м")
s = s + UBound(p)
p = Split(stroka, "н")
s = s + UBound(p)
p = Split(stroka, "р")
s = s + UBound(p)
p = Split(stroka, "п")
s = s + UBound(p)
p = Split(stroka, "с")
s = s + UBound(p)
p = Split(stroka, "т")
s = s + UBound(p)
p = Split(stroka, "ф")
s = s + UBound(p)
p = Split(stroka, "х")
s = s + UBound(p)
p = Split(stroka, "ц")
s = s + UBound(p)
p = Split(stroka, "ч")
s = s + UBound(p)
p = Split(stroka, "ш")
s = s + UBound(p)
p = Split(stroka, "щ")
s = s + UBound(p)
If (g > s) Then Picture3.Print "Гласных больше чем согласных"
If (s > g) Then Picture3.Print "Согласных больше чем гласных"
If (s = g) Then Picture3.Print "Количество гласных совпадает с количеством гласными"
Picture1.Print g
Picture2.Print s
End Sub