Private Sub RichTextBox_Click()
    '
    On Error Resume Next
    '
    Dim i, n, ss
    Dim SearchText As String
    '
    i = 0
    n = 0
    ss = RichTextBox.SelStart
    '
    If RichTextBox.SelStart < Len(RichTextBox.Text) Then
        '
        Do
            n = InStr(i + 1, RichTextBox.Text, vbCrLf)
            If ss > n Then i = n + 1
        Loop While ss >= n
        '
        RichTextBox.SelStart = i
        If n <> i Then RichTextBox.SelLength = n - i
        '
        If RichTextBox.SelText <> "" Then
           '
           Msgbox RichTextBox.SelText
           '
        End If
        '
    End If
    '
End Sub