Необходимо вставить новое слово в текст из 3-х слов после первого слова- QBasic(Бейсик)

CLS
INPUT "vvedite text"; a$
INPUT "vvedite slovo"; b$
DO
    i = i + 1
    IF MID$(a$, i, 1) = " " THEN k = i
LOOP UNTIL k > 0 OR i = LEN(a$)
c$ = MID$(a$, 1, k) + b$ + " " + MID$(a$, k + 1, LEN(a$))
PRINT c$