Private Function ReadID3V2Tag(ByVal filename As String) As String
 
        'Die Länge des Headers noch anpassen, gemäß Info im Tag 
        '("Extended Header Size")
        Dim hl As Integer = 128
 
        Dim str As New System.Text.StringBuilder(hl - 1)
        Dim enc As System.Text.Encoding = System.Text.Encoding.UTF8
        Dim buffer(hl - 1) As Char
 
        Using sr As New IO.StreamReader(filename, enc, False)
            sr.Read(buffer, 0, hl)
            str.Append(buffer)
        End Using
 
        Return str.ToString
    End Function