QBASIC to print total number of vowel in given word using SUB

DECLARE SUB COUNT ( N$ )
CLS
INPUT " Enter any word"; N$
CALL COUNT ( N$ )
END

SUB COUNT ( N$ )
C = 0
FOR I = 1 TO LEN ( N$ )
B$ = MID $ ( N$, I, 1 )
C$ = UCASE $ ( B$ )
IF C$ = "A" OR C$ = "E" OR C$ "I" OR C$ = "O" OR C$ = "U" THEN C = C + 1
NEXT I
PRINT " TOTAL NUMBER OF VOWELS="; C$
END SUB