[+]

Private Sub RichTextBox_Click()
    '
    On Error Resume Next
    '
    Dim i, n, ss
    Dim SearchText As String
    '

More...