Определить сколько гласных букв русского алфавита встречается в тексте — QBasic(Бейсик)

REM
CLS
INPUT "Vvedite text", s$
FOR i = 1 TO LEN(s$)
    IF MID$(s$, i, 1) = "e" THEN k = k + 1
    IF MID$(s$, i, 1) = "y" THEN k = k + 1
    IF MID$(s$, i, 1) = "i" THEN k = k + 1
    IF MID$(s$, i, 1) = "o" THEN k = k + 1
    IF MID$(s$, i, 1) = "u" THEN k = k + 1
NEXT i
PRINT "Kolvo glasnih bukv v tekste"; k
END