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

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

Replace(Expression,Find,Replace[,Start[,Count[,Compare]]])

' меняем слово "хочу" на "люблю"  во всём тексте
Dim sample$, findstr$, newstr$,retval$
sample = "Я хочу, хочу, хочу тебя" 'строка,которую будем менять
findstr = "хочу" 'подстрока для замены
newstr = "люблю" ' новая подстрока для  замены
retval = Replace (sample,findstr,newstr) 
Debug.Print retval

'В тексте, находящимся в txt3  меняется слово
' из txt2 на слово из txt1
Private Sub cmdZamena_Click()
   txt3.Text = Replace(txt3.Text, txt2.Text, txt1.Text)
End Sub

Option Explicit
 
Sub Zamena()
Dim Poz As Integer, Stroka As String, What As String, Repl As String
Stroka = "Казнить нельзя помиловать!" 'исходная
What = "нельзя" 'что заменяем
Repl = "нужно, не" 'чем заменяем
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
End Sub

Option Explicit
 
Private Sub Command1_Click()
Dim s As String
Dim s1 As String
Dim s2 As String
Dim i As Single
Dim x() As String
Dim y() As String
Dim z() As String
s = CStr(Text1.Text)
s1 = CStr(Text2.Text)
s2 = CStr(Text3.Text)
x = Split(s1, " ")
y = Split(s2, " ")
z = Split(s, " ")
 
For i = 1 To Len(s)
s = Replace(s, s1, s2)
Next i
 
Text1.Text = s
End Sub
 
 
Private Sub Command2_Click()
End
End Sub

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

 txt3.Text

txt3(1).Text