Хорошо, ребята, я нашел решение.это заняло у меня время, но я сделал это: D Я публикую свое решение, надеюсь, оно кому-нибудь поможет.
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
For i As Integer = 0 To RichTextBox1.Lines.Count - 1
If RichTextBox1.Lines(i).Contains("YourWord") Then
RichTextBox2.Text += (RichTextBox1.Lines(i)) + vbNewLine
End If
Next
End Sub