Public Sub FilterString(ByVal text As String, ByVal anfang As String, _
         ByVal ende As String, ByVal was As String)
 
    Dim Pos As Integer
    Dim tmppos As Integer
    Dim ausgabe As String
    Dim subitem As ListViewItem = Nothing
    Dim gesamtpos As Integer = Pos - tmppos
    Dim listindex As Integer = -1
 
    Do
       Pos = InStr(Pos + 1, text, anfang)
       If Pos <> 0 Then
          tmppos = Pos + Len(anfang)
          ausgabe = Mid$(text, tmppos, InStr(tmppos, text, ende) - tmppos)
          With ListView1
              If was = "searchdateiname" Then subitem = .Items..Add(ausgabe)
              If was = "searchid" Then
                   listindex += 1
                   subitem = .Items(listindex)
                   subitem.SubItems.Add(ausgabe)
              End If
          End With
        End If
    Loop Until Pos = 0
 End Sub