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

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

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

    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

سلام
خب اصلا این چه کاریه، از تابع Replace استفاده کنید

Text1 = Replace(Text1, "daram", "daramm")

نقل قول:

---

نوشته شده توسط vbhamed

سلام
خب اصلا این چه کاریه، از تابع Replace استفاده کنید

Text1 = Replace(Text1, "daram", "daramm")

---

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

سلام
اول شما متن فارسی رو مثال زدین که توش حروف بزرگ و کوچک معنی نداره
دوم اینکه از روش مشابه زیر استفاده کنید

MsgBox Replace("iiiIIiIiIIIi", "i", "b", , , vbTextCompare)

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