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

INPUT "Введите текст ",text$
INPUT "Введите стоимость слова ",dengi
FOR i=1 TO LEN(text$)
IF MID$(text$,i,1)=" " THEN slov=slov+1
NEXT
stoit=(slov+1)*dengi
PRINT stoit