Подсчитать стоимость телеграммы. если известна стоимость одного слова — QBasic(Бейсик)

INPUT "Vvedite slova razdelnnie probelom ", text$
INPUT "Vvedite stoimost slova", dengi
FOR i = 1 TO LEN(text$)
    IF MID$(text$, i, 1) = " " THEN slov = slov + 1
NEXT
stoit = (slov + 1) * dengi
PRINT stoit