Public Function 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
        Dim gesamtpos As Integer = Pos - tmppos
        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 frmMain.lvwgefunden.Items
                    If was = "searchdateiname" Then SubItem = .Add(ausgabe)
                    If was = "searchid" Then SubItem.SubItems.Add(ausgabe)
 
                End With
            End If
        Loop Until Pos = 0