Подсчитать количество гласных букв в слове и вывести на экран - VB

Формулировка задачи:

Private Sub Command1_Click()
Dim i As Byte
Dim n As Integer
Dim st As String
st = Val(InputBox("Введите слово"))
n = 1
For i = 1 To Len(st)
If Strings.InStr(st, "а") Then
n = n + 1
If Strings.InStr(st, "е") Then
n = n + 1
If Strings.InStr(st, "ё") Then
n = n + 1
If Strings.InStr(st, "и") Then
n = n + 1
If Strings.InStr(st, "о") Then
n = n + 1
If Strings.InStr(st, "у") Then
n = n + 1
If Strings.InStr(st, "ы") Then
n = n + 1
If Strings.InStr(st, "э") Then
n = n + 1
If Strings.InStr(st, "ю") Then
n = n + 1
If Strings.InStr(st, "я") Then
n = n + 1
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
Next
MsgBox ("кол-во гласных = " + Str(n))
End Sub

Вот мой програмный код))) В итоге,в любом случае,мне выдает "Кол-во гласных букв =1" Буду очень благодарен,если укажите на ошибки,и напишите верный вариант прогамного кода)

Решение задачи: «Подсчитать количество гласных букв в слове и вывести на экран»

textual
                            Листинг программы 
                        

                            Dim st As String
st = Val(InputBox("все, что угодно === в результате будет 0"))
Print st
st = InputBox("а так будет то, что написано")
Print st
                        