Count total no.of vowels in a word.(FUNCTION)

DECLARE FUNCTION COUNT(N$)

CLS

INPUT"ENTER ANY WORD";N$

PRINT"TOTAL NO. OF VOWELS IS";COUNT(N$)

END

FUNCTION COUNT(N$)

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 NO. OF VOWELS =";C

END SUB