If was = "searchdateiname" Then
   subitem = .Items.Add(ausgabe)
Else
   listindex += 1
   subitem = .Items(listindex)
   If was = "searchid" Then subitem.SubItems.Add(ausgabe)
   If was = "???????" Then subitem.SubItems.Add(ausgabe)
   'usw
End If

Dim ausgabe As String = _
"<dateiname>test1</dateiname><id>1</id><??>qm1</??><dateiname>test2</dateiname><id>2</id><??>qm2</??>"
 
FilterString(ausgabe, "<dateiname>", "</dateiname>", "searchdateiname")
FilterString(ausgabe, "<id>", "</id>", "searchid")
FilterString(ausgabe, "<??>", "</??>", "???????")