Dim Pos As Integer
        Dim tmppos As Integer
        Dim ausgabe As String
        Dim gesamtpos As Integer = Pos - tmppos
        Dim subitem as Listviewitem
        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 = "searchgroesse" then subitem.subitems.add(ausgabe)
 
'Hier bekomm ich schon ein fehler 
 
                ' frmMain.lvwgefunden.Items.Add(SubItem)
            End If
        Loop Until Pos = 0