Обработка данных строкового типа - VB

Формулировка задачи:

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

Решение задачи: «Обработка данных строкового типа»

textual
                            Листинг программы 
                        

                            Dim txt As String, rezult As String, arr
txt = InputBox("txt")
arr = Split(txt, "всегда")
txt = Replace(txt, "всегда", "часто")
If UBound(arr) > 0 Then MsgBox UBound(arr) & vbCrLf & txt Else MsgBox "No!"
                        