Private Function GetRule(ByVal RuleString As String, _
        ByRef entrybehind As String, ByRef entry As String) As Boolean
 
        'Routine splittet einen Regeleintrag kontrolliert auf
        If Not RuleString.Contains(";") Then Return False
        Dim r As String() = RuleString.Split(";"c)
        If r.Length <> 2 Then Return False
        entry = r(1).Trim : entrybehind = r(0).Trim
        If String.IsNullOrEmpty(entry) Then Return False
        If String.IsNullOrEmpty(entrybehind) Then Return False
        If entry = entrybehind Then Return False
        Return True
    End Function
 
    Public Function CheckRules _
     (ByVal lst As List(Of String), _
      ByVal rules As List(Of String)) As Boolean
        'Gültigkeit der Regeln in Ergebnisliste überprüfen
        Dim b, f As String : b = "" : f = ""
        For i As Integer = 0 To rules.Count - 1
            GetRule(rules(i), b, f)
            If lst.IndexOf(f) > lst.IndexOf(b) Then Return False
        Next i
        Return True
    End Function