البحث عن نص دخل RichTextBox1

وعليكم السلام ورحمة الله وبركاته

هذا الكود ينفذ ما تطلبه

    Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
        Dim firstWord As String = "حسن"
        Dim lastWord As String = "نور"
        Dim firstIndex As Integer = Me.RichTextBox1.Find(firstWord)
        If firstIndex > -1 Then
            Dim lastIndex As Integer = Me.RichTextBox1.Find(lastWord, firstIndex, RichTextBoxFinds.None)
            If lastIndex > -1 Then
                lastIndex += lastWord.Length

                Me.TextBox1.Text = Me.RichTextBox1.Text.Substring(firstIndex, lastIndex - firstIndex)
            End If
        End If
    End Sub

الف شكر

بس في مشكة انه محتوى ال TextBox1 ما ابغا يكون به كلمة حسن أو نور ابغا محتواه

الكلمة التي بين حسن ونور

حل الاخ GHOST2010يخقق ما تريد