Erase vowel from input string using function

DECLARE FUNCTION DISPC$ (S$)
CLS
INPUT "ENTER ANY STRING"; S$
PRINT " AFTER EARISNG VOWELS = "; DISPC$(S$)
END

FUNCTION DISPC$ (S$)
FOR I = 1 TO LEN(S$)
 B$ = MID$(S$, I, 1)
 C$ = UCASE$(B$)
 IF C$ <> "A" AND C$ <> "E" AND C$ <> "I" AND C$ <> "O" AND C$ <> "U" THEND$ = D$ + B$
 END IF
NEXT I
DISPC$ = D$
END FUNCTION