Подсчитать количество гласных букв в заданном слове

Sub m_1()
Dim myVector(N) As Single
Dim i As Integer
Dim vКоличество As Integer
For i = LBound(myVector) To UBound(myVector)
    If myVector(i) >= a And myVector(i) <= b Then
        vКоличество = vКоличество + 1
    End If
Next i
vКоличество
End Sub

Sub m_1()
Dim vСлово As String
Dim vКоличество As Integer
Dim i As Integer
For i = 1 To Len(vСлово)
    If LCase(Mid(vСлово, i, 1)) Like "[a,e,i,o,u,y]" Then
       vКоличество = vКоличество + 1
    End If
Next i
vКоличество 
End Sub

vКоличество

Sub m_1()
Dim vСлово As String
Dim vКоличество As Integer
Dim i As Integer
'For i ... Next i - это цикл.
'С помощью инструмента Len определяем, сколько в слове букв
'В данном случае цикл будет повторяться столько раз,
'сколько в анализируемом слове букв
For i = 1 To Len(vСлово)
    'i - это переменная, которая будет изменяться от 1 до количества букв в слове
    'vСлово - это переменная в которой содержится анализируемое слово
    'С помощью инструмента Mid анализируем определённую букву в слове,
    'а не всё слово, где i означает номер буквы, а цифра 1 означает, сколько
    'букв анализировать
    'Гласные буквы могут быть как большие, так и строчные.
    'Чтобы все буквы в слове привести к одному регистру
    'используется инструмент LCase. Если этой функции не использовать, то
    'тогда команда была бы такой:
    'Like "[A,a,E,e,I,i,O,o,U,u,Y,y]"
    If LCase(Mid(vСлово, i, 1)) Like "[a,e,i,o,u,y]" Then
       vКоличество = vКоличество + 1
    End If
Next i
vКоличество
End Sub