Private SearchIndex As Integer
 
    ''' <summary>
    ''' Durchsucht den Text nach einer bestimmten Zeichenkette und markiert die 
    ' nächste gefundene Übereinstimmung
    ''' </summary>
    ''' <param name="Search">Enthält die zu suchende Zeichenkette</param>
    ''' <param name="SearchOptions">Enthält die Suchoptionen</param>
    ''' <returns>true, wenn der Suchbegriff mit den angegebenen Suchoptionen 
    ' gefunden wurde, ansonsten false</returns>
    ''' <remarks></remarks>
    Public Function SearchString(ByVal Search As String, ByVal SearchOptions As _
      Windows.Forms.RichTextBoxFinds) As Boolean
        ' Index für übereinstimmende Zeichenkette; -1, wenn nicht gefunden
        Dim i As Integer
 
        Try
            If (SearchOptions And Windows.Forms.RichTextBoxFinds.Reverse) = _
              Windows.Forms.RichTextBoxFinds.Reverse Then
                ' Ausführen, wenn Suchrichtung aufwärts ist
                i = Me.Find(Search, 0, Me.SearchIndex, SearchOptions)
            Else
                ' Ausführen, wenn Suchrichtung abwärts ist
                i = Me.Find(Search, Me.SearchIndex, SearchOptions)
            End If
        Catch ex As Exception
 
        End Try
 
        If i < 0 Then
            ' Ausführen, wenn Zeichenkette nicht vorhanden ist
            Return False
        Else
            ' Ausführen, wenn Zeichenkette vorhanden ist
            Me.SearchIndex = i + 1
            Return True
        End If
 
        ' Focus auf den Editor setzen
        Me.Focus()
    End Function