Public Datenbank() As New Collection
Datenbank(0).Add "Dateiname:Titel:Künstler:Pfad"

Datenbank(0).Add "Dr. Hook - Sexy Eyes:Sexy Eyes:Dr. Hook:C:\ Mp3 Ordner"
Datenbank(0).Add "Dr. Hook - Sexy Eyes:Sexy Eyes:Dr. Hook: D:\Musik"
Datenbank(1).Add " KC & The Sunshine Band - Please Don't Go: Please Don't Go:" & _
  "KC & The Sunshine Band:D:\Musik"

Dim Dateiname As String, Titel As String, Künstler As String, FileIndex As _
  Long, i As Long
 
For FileIndex = UBound(FundFiles) To 1 Step -1
    Lc = UBound(.Datenbank)
    Mp3ID3.Taglese (FundFiles(FileIndex))
 
    For i = 1 To Lc
        Call Variable_Split(Datenbank(i),Dateiname, Titel, Künstler)
        If Mp3ID3.Dateiname = Dateiname Or Titel & Künstler = Mp3ID3.Titel & _
          Mp3ID3.Künstler Then
            Datenbank(i).Add Mp3ID3.Dateiname& ":" & Mp3ID3.Titel& ":" & _
            Mp3ID3.Künstler& ":" & FundFiles(FileIndex)
            fund = True: Exit For
        Else
            fund = False
        End If
    Next i
 
    If fund = False Then
        Neu = Lc + 1
        ReDim Preserve Datenbank(Neu)
        Datenbank(Neu).Add Mp3ID3.Dateiname & ":" & Mp3ID3.Titel & ":" & _
          Mp3ID3.Künstler & ":" & FundFiles(FileIndex)
    End If
Next FileIndex