QuickBasic - Programas QBasic

Hola, tengo que programar un archivo de QBasic que me permita ingresar un texto por teclado y mostrar por pantalla la cantidad de palabras que tiene el texto. Espero puedan guiarme un poco, ya que no sé cómo continuar. Las últimas sentencias que me enseñaron son estas: LEFT$, RIGHT$, MID$, LEN, STR$, LTRIM$, RTRIM$, VAL, SPACE$, STRING$... Si puedo usar esas, mucho mejor. Muchas gracias.

A ver si te vales esto. Es muy sencilo y lo que hace es contar el número de espacios que hay entre palabras.


REM *** Cuenta palabras *** por Privateer ***

INPUT "Entra frase: ", a$
lon = LEN(a$)
cont = 1

FOR a = 1 TO lon
IF MID$(a$, a, 1) = " " THEN cont = cont + 1
NEXT a

PRINT "Número de palabras: "; cont



Un saludo :-)

Privateer