Составьте программу, выясняющую, в каком из слов X или Y больше гласных букв

If (s = "а") Or (s = "у") Or (s = "е") Or (s = "ы") Or (s = "о") Or (s = "э") Or (s = "я") Or (s = "и") Or (s = "ю") Then

Dim S1 As String 'слово №1
Dim s2 As String 'слово №2
Dim s3 As String
Dim i As Integer
Dim j As Integer
Dim K As Integer 'Количество гласных в первом слове
Dim K1 As Integer 'Количество гласных во втором слове
Dim GlasNie(10) As String
s3 = "аеёиоуыэюя"
'Забиваем гласные в таблицу
For i = 1 To 10
GlasNie(i) = Mid(s3, i, 1)
Next i
S1 = InputBox("Введите слово №1")
s2 = InputBox("Введите слово №2")
'считаем гласные в первом слове
For i = 1 To Len(S1)
For j = 1 To 10
If Mid(S1, i, 1) = GlasNie(j) Then K = K + 1
Next i
Next j
'считаем гласные во втором слове
    For i = 1 To Len(s2)
    For j = 1 To 10
    If Mid(s2, i, 1) = GlasNie(j) Then K1 = K1 + 1
    Next i
    Next j
'сравниваем и выводим результат
If K > K1 Then
MsgBox ("Больше гласных букв в первом слове")
If K < K1 Then
MsgBox ("Больше гласных букв во втором слове")
Else
MsgBox ("Количество гласных букв в словах равно")
End If
End If

Sub aa()
Dim s1$, s2$, Ln1%, Ln2%, t%, G$
s1 = InputBox("Введите слово № 1")
s2 = InputBox("Введите слово № 2")
Ln1 = Len(s1): Ln2 = Len(s2)
G = "ауоыиэяюёе"
For t = 1 To 10
    s1 = Replace(s1, Mid(G, t, 1), "")
    s2 = Replace(s2, Mid(G, t, 1), "")
Next
If Ln1 - Len(s1) = Ln2 - Len(s2) Then
    MsgBox "Количество гласных одинаково."
    Else: MsgBox "Гласных больше в слове № " & IIf _
    (Ln1 - Len(s1) > Ln2 - Len(s2), "1", "2")
End If
End Sub