Подсчитать количество слогов в произвольно заданном слове- QBasic(Бейсик)

CLS
INPUT "vvedite slovo"; a$
u$ = "aeiou" ' добавь/замени здесь гласные буквы
FOR i = 1 TO LEN(a$)
    FOR j = 1 TO LEN(u$)
        IF MID$(a$, i, 1) = MID$(u$, j, 1) THEN k = k + 1
    NEXT
NEXT
PRINT k