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

[yashar_2006]

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

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

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

[vbhamed]

سلام
خب اصلا این چه کاریه، از تابع Replace استفاده کنید
Text1 = Replace(Text1, "daram", "daramm")

[yashar_2006]

سلام
خب اصلا این چه کاریه، از تابع Replace استفاده کنید
Text1 = Replace(Text1, "daram", "daramm")


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

[vbhamed]

سلام
اول شما متن فارسی رو مثال زدین که توش حروف بزرگ و کوچک معنی نداره
دوم اینکه از روش مشابه زیر استفاده کنید
MsgBox Replace("iiiIIiIiIIIi", "i", "b", , , vbTextCompare)

[roo.row]

با سلام
اگر مشکلتون حل نشد به اینجا (http://barnamenevis.org/showthread.php?540173-%D8%AA%D8%B4%D8%AE%DB%8C%D8%B5-%D9%88-%D8%AD%D8%B0%D9%81-%DA%A9%D9%84%D9%85%D9%87-%D8%A7%D8%B2-%D8%AA%DA%A9%D8%B3%D8%AA) یه سری بزنید ممکنه کمکتون کنه
با تشکر