QBASIC to count number of word in sentence usingt FUNCTION

DECLARE FUNCTION COUNT ( N$ )
CLS
INPUT "Enter any word"; N$
PRINT " Total number of word ="; COUNT ( N$ )
END

FUNCTION COUNT ( N$ )
C = 0
FOR I = 1 TO LEN ( N$)
B$ = MID $ ( N$, I, 1 )
C$ = UCASE $ ( B$ )
C = C + 1
NEXT I
COUNT = C
END FUNCTION