Wyszukiwanie tekstu w RichTextBox - dla każdej linijki osobno

Poniższy kod, po wklejeniu tekstu do RichTextBox401 wykonuje przeszukiwanie "czy którykolwiek z textboxow jest zawarty w RichTextVox401"
Jak mogę zmienić, by Te operacje wykonywały się nie dla całego RichTextBox401....lecz dla każdej linijki w RichTextBox401....?

mianowiscie jak wkleje do RichTextBox401 jakiś tekst, to dla każdej osobnej linijki ma się wykonywać ten fragment kodu:

    Private Sub RichTextBox401_TextChanged(sender As Object, e As EventArgs) Handles RichTextBox401.TextChanged
        Dim SearchText As String = RichTextBox401.Text
        Dim ctrl, ctrl2 As Control
        For Each ctrl In TabControl1.Controls
            If TypeOf (ctrl) Is TabPage Then
                Dim page As TabPage = ctrl
                For Each ctrl2 In page.Controls
                    If TypeOf (ctrl2) Is TextBox Then
                        Dim box As TextBox = ctrl2
                        Dim pos As Boolean = SearchText.Contains(box.Text)
                        If pos And Not box.Text = "" Then
                            TextBox2.Text = box.Text
                            Label102.ForeColor = Color.Green
                            Label102.Text = "Znaleziono Słowo Kluczowe!"
                            TabControl1.SelectedTab = box.Parent

                            Exit Sub
                        Else
                            Label102.ForeColor = Color.Red
                            Label102.Text = "Wprowadź Słowo Kluczowe!"
                        End If
                    End If
                Next
            End If
        Next
 
        If RichTextBox401.Text = "" Then
            Label102.Text = ""
        End If

    End Sub

Jak to zrobić ?

RichTextBox ma właściwość Lines, użyj jej zamiast Text.