Public Sub Search(Rtfbox As RichTextBox)
'// Durchsucht aktive Form nach Text
Dim txt As String
Dim sPos As Long
 
'Eingabe des Suchbegriffs
txt = InputBox("Nach welchem Begriff soll gesucht werden?", "Suchen")
 
'Suchen...
Rtfbox.Find (txt)
 
'Nicht gefunden
If sPos = 0 Then
    MsgBox "Suchbegriff wurde nicht gefunden", vbExclamation, "Suchen"
Else
'Gefunden!
    Rtfbox.SelStart = sPos
    Rtfbox.SelLength = Len(txt)
End If
 
End Sub