[3booody]

الان فهمت قصدك اخي اولآ ضع هذه الطريقة

كود :

Private Sub Change(ByVal chr1 As Char, ByVal chr2 As Char, ByVal NewStr As String)
        On Error Resume Next
        While TextBox1.Text.Contains(chr1)
            If Not TextBox1.Text.Contains(chr2) Then
                Exit While
            End If
            Dim n As Short = TextBox1.Text.IndexOf(chr1) + 1
            Dim txt As String = Mid(TextBox1.Text, n, TextBox1.TextLength - n)
            Dim i As Short = txt.IndexOf(chr2)
            TextBox1.Text = TextBox1.Text.Replace(Mid(TextBox1.Text, n, i + 1), NewStr)
        End While
    End Sub

عند الاستدعاء اكتب Change وارسل ثلاث باريمترات
لاحظ الشرح مع الالوان

كود :

Change([color=#0000FF]"\"[/color], [color=#FF0000]"H"[/color], [color=#800000]""[/color])

الحرف الذي تبدأ بها الكلمة مثل
3booody\

الحرف الثاني والذي يكون بعد الكللمة المراد تغيرها

3booodyH\

الاخير وهو نصي يأخذ الكلمة التي تريد التغير اليها

ملاحظه لاتكرر الاحرف الثانية H حاول تغير الحرف عند الارسال حتى لايحدث اخطاء

علمآ بأن الكود اتعبني شوي لان اخذ مني وقت لكن ماكو تعب لأخواني(ولاحد يظن ان الكود معقد وطويل لكن السبب هو حتى اتلافى الاخطاء مع تكرار الاحرف)

موفق