Вставить новое слово в текст из трёх слов после первого слова- QBasic(Бейсик)

input"vvedite text iz treh slov ",a$
input"vvedite slovo dlya vstavki ",b$
for i=len(a$) to 1 step-1
if mid$(a$,i,1)=" "then k=i
next
a$=left$(a$,k)+b$+" "+right$(a$,len(a$)-k)
print a$