Помогите решить задачку)))

Ввести текст длиной до 254 символов в виде строки, состоящей из слов. Заменить все слова "всегда" на слово"часто". Использовать функции для работы с данными символьного типа. Выдать сообщение о количестве заменённых слов или об отсутствии заменяемого слова.

Вроде это должно быть так
10 INPUT "Исходная строка : ” ; х$
20 х$ = " " + х$ + " ": у$ = “ всегда ” : z$ = “ часто ”
30 n = INSTR (1, х$, у$)
40 WHILE n < > 0
50 х$ > MID$(x$, 1, n – 1) + z$ + MID(x$, n + LEN(y$), LEN(X$))
60 n = INSTR (1, x$, y$)
70 WEND
80 x$ = MID$ (x$, 2, LEN(X$) - 1)
90 PRINT "Преобразованная строка: “ ; x$
100 END
но программа не работает(((((((

Я всё исправила, но выделяется строка 10........что с ней не так?

Исправила, выделяет всю строку после INPUT

У меня Visual Basic 6.0 ........ я в информатике полный 0, помогите)))

Вообще, информатика не по моей специальности, я на лингвистическом учусь) А вот программный код дал сам преподаватель........... Помогите разобраться, пожалуйста)

Но мы работаем именно в VB, по поводу других программ нам не говорили............не знаю что делать(

Ну......преподавателей не выбирают, какой уж есть...........но программу то мне надо как то сделать........а вот как???