جستجو و جایگزینی کلمه در تکست باکس

سلام
از عنوان مشخصه سوالم چیه
میخوام داخل یه تکست باکس جستجو کنم و نتیجه رو با کلمه جدید جایگزین کنم
البته من از کد زیر استفاده کردم
اما یه مشکل مسخره دارم

مثلا اگر در جمله " من ایران را دوست دارم "
کلمه " ایران " رو جستجو کنیم و جایگزین کنیم مشکلی نیست
اما وقتی " دارم " رو جستجو کنیم و به آخرش " م " اضافه کنیم ، مثلا بنویسیم " دارمم " کلمه " دارم " رو تغیر میده و به اندازه تعداد باقی کاراکتر ها "م" اضافه میکنه
مثلا این " من ايران را دوست دارمممممممممممممممممممممم "
کسی راه حل یا کد دیگه داره که مشکل حل بشه

 Dim StartPos, Counter As Integer
Dim FindString, ReplaceText As String
FindString = Text1.Text
ReplaceText = Text2.Text
For Counter = 1 To Len(Text3.Text)
StartPos = InStr(Text3.Text, FindString)
If StartPos > 0 Then
Text3.SelStart = StartPos - 1
Text3.SelLength = Len(FindString)
Text3.SelText = "" + ReplaceText
End If
Next