ID3 tags

    Sub Main()
        Dim mp As FileStream
        Dim Title(30) As Byte
        Dim Artist(30) As Byte
        Dim Album(30) As Byte
        Dim Year(4) As Byte
        Dim Comments(30) As Byte
        Console.Write("File:")
        mp = New FileStream(Console.ReadLine(), FileMode.Open)
        mp.Seek(-125, SeekOrigin.End)
        mp.Read(Title, 0, 30)
        mp.Seek(-95, SeekOrigin.End)
        mp.Read(Artist, 0, 30)
        mp.Seek(-65, SeekOrigin.End)
        mp.Read(Album, 0, 30)
        mp.Seek(-35, SeekOrigin.End)
        mp.Read(Year, 0, 4)
        mp.Seek(-31, SeekOrigin.End)
        mp.Read(Comments, 0, 30)
        Dim TxtTitle As String = System.Text.Encoding.ASCII.GetString(Title)
        Dim TxtArtist As String = System.Text.Encoding.ASCII.GetString(Artist)
        Dim TxtAlbum As String = System.Text.Encoding.ASCII.GetString(Album)
        Dim TxtYear As String = System.Text.Encoding.ASCII.GetString(Year)
        Dim TextComments As String = System.Text.Encoding.ASCII.GetString(Comments)
        Console.WriteLine(TxtTitle & "-" & TxtArtist)
    End Sub