Count total no.of vowels in word(fun)

DECLARE FUNCTION COUNT (N$)
CLS
INPUT "ENTER ANY NO";N$
PRINT "TOTAL NO.OF VOWELS"COUNT(N$)
END

FUNCTION COUNT (N$)
C=0
FOR I = 1 TO LEN(N$)
B$=MID$(N$,I,1)
C$= UCASE$ (B$)
IF C$ "A" OR C$="E"ORC$="I"ORC$"O"ORC$="U"THEN
C=C+1
NEXT I
COUNT = C
END FUNCTION