transfer a text separately a text found inside a textbox

Picking a particular text within another textbox or richtextbox does when there is a detailed text instance eg: "text": taking the double quotation marks when the next sentence is found and leading to a separate textbox

I wrote this code it can select the text I'm looking for inside a textbox.

I've put a picture below to better explain what I need

 Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

        Dim i As Integer = 0
        Dim strTexto As String
        strTexto = TextBox3.Text

        RichTextBox1.Text = RichTextBox1.Text


        While i < RichTextBox1.Text.LastIndexOf(strTexto)
            RichTextBox1.Find(strTexto, i, RichTextBox1.TextLength, RichTextBoxFinds.None)
            RichTextBox1.SelectionBackColor = Color.Orange
            i = RichTextBox1.Text.IndexOf(strTexto, i) + 1

            txt_resultado.Text = i.ToString
        End While

    End Sub