Заменить все вхождения подстроки Str1 на подстроку Str2, которые вводятся с клавиатуры. - VB

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

1 Заменить все вхождения подстроки Str1 на подстроку Str2, которые вводятся с клавиатуры. 2 Дана строка символов, среди которых есть двоеточие (. Определить, сколько символов ему предшествует 3 Выписать из символьной строки слова, начинающиеся и заканчивающиеся на одну и ту же букву. если не трудно помогите с решением (желательно код начиная с Dim) тут вообще не понимаю как именно сделать %(

там не смайлик там ( : )

Решение задачи: «Заменить все вхождения подстроки Str1 на подстроку Str2, которые вводятся с клавиатуры.»

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

                            Dim sSource As String, sFindWhat As String
Dim sReplace As String, sDest As String
sSource = InputBox("Введите произвольную строку")
sFindWhat = InputBox("Что ищем?")
sReplace = InputBox("На что меняем?")
sDest = Replace(sSource, sFindWhat, sReplace)
MsgBox sSource & vbNewLine & sFindWhat & vbNewLine & _
        sReplace & vbNewLine & sDest
                        