Dim str As String = "bbbbb" 'kritische Zeichenfolge
 
With RichTextBox1
    'Mehrzeiligen Text erstellen 
    .Text = "aaaaa" & vbCrLf & str & vbCrLf & "cccccc"
 
    'Zeichenfolge suchen
    Dim index As Integer = .Find(str)
 
    If index >= 0 Then
       .SelectionStart = index
       .SelectionLength = str.Length + 2 'Zwei Zeichen für Zeilenvorschub
       .SelectedText = String.Empty  'Löschen 
    End If
End With