Dim MP3TracksAuswahl, MP3TracksBrennen As List(Of Clas_MP3Tag)

 Dim MP3Track As New Clas_MP3Tag()
 
        For a = 1 To MP3DateiListe.GetUpperBound(0)
            If Fkt_GetID3TagV2(MP3DateiListe(a), ID3Tag) = True Then
 
                MP3Track.Interpret = ID3Tag.Artist
                MP3Track.TitelName = ID3Tag.Title
                MP3Track.Spieldauer = Fkt_GetMP3Length(MP3DateiListe(a))
                MP3Track.Dateipfad = MP3DateiListe(a)
 
                MP3TracksAuswahl.Add(MP3Track)
            End If
        Next

Grüße Andi