Во всем заданном тексте заменить одно слово другим - VB

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

Вот две задачки,что-то вникнуть не могу,вроде что-то собрал но никак.. Вот первая: 1)Во всем заданном тексте заменить одно слово другим(длины этих слов могут совпадать) А вот вторая : 2)Зашифровать заданный текст,используя перемешанный алфавит(полученный перестановкой перестановкой всех букв исходного алфавита) АБВГДЕЖЗИКЛМНОПРСТУФХЦЧШЩЬЫЪЭЮЯ ЕЖЧБПКЛАОТДУГЦЯЙХЫВЪЮИФСЩНЬЭЗШРМ Вот по первой что-то есть может и правильно:

Private Sub cmdZamena_Click()
Dim poz As Integer, stroka As String, dli As Integer, poz2 As Integer, dli2 As Integer
poz = InStr(1, txt3.Text, txt1.Text)
dli = Len(txt3.Text) - poz
poz2 = InStr(poz, txt3.Text, " ")
dli2 = Len(txt3.Text) - poz2
stroka = Mid(txt3.Text, 1, poz - 2) & " " & txt2.Text & " " & Mid(txt3.Text, poz2, dli2 + 1)
txt3 = stroka
End Sub

Решение задачи: «Во всем заданном тексте заменить одно слово другим»

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

                            Private Sub cmdZamena_Click()
Dim Poz As Integer, Stroka As String, What As String, Repl As String
Stroka = txt3(1).Text 'исходная
What = txt1.Text 'что заменяем
Repl = txt2.Text 'чем заменяем
Do
  Poz = Poz + 1
  Poz = InStr(Poz, Stroka, What, vbTextCompare)
  If Poz <> 0 Then Stroka = Left$(Stroka, Poz - 1) & Repl & Mid$(Stroka, Poz + Len(What)): Poz = Poz + Len(Repl) - 1
Loop Until Poz = 0
txt3(1).Text = Stroka
End Sub
                        