[3booody]

[COLOR="#800000"]السلام عليكم ورحمة الله وبركاته
من بعد اذن اخي وحبيبي سجَاد اظن اني فهمت قصدك
تقصد أي كلمة موجودة بين سبحان والعظيم تفضل الكود[/COLOR]

كود :

Dim n, x As Integer
        n = InStr(RichTextBox1.Text, "سبحان") + 5
        x = InStr(RichTextBox1.Text, "العظيم")
        TextBox1.Text = Mid(RichTextBox1.Text, n, x - n)