Function FilterLine(strLine)
  Filter1 = "<"
  FilterArray = Array(Filter1)
  Hits = False
  For Suchwert = LBound(FilterArray) to UBound(FilterArray)
    If left(strLine,1) = FilterArray(Suchwert) Then
      Hits = True
    End If
    If Hits = True Then
      FilterLine = True
    End If
  Next
End Function