Print only vowel from a given word using sub

DECLARE SUB DISP(N$)
CLS
INPUT"ENTER ANY WORD";N$
CALL DISP(N$)
END

SUB DISP(N$)
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 V$=V$+B$
NEXT I
PRINT"VOWEL";V$
END SUB