Ошибка при чтении файла mp3 на строке с GetTagSTR.SetValue

 Public Class Form1
    Dim put As String = IO.Directory.GetCurrentDirectory + "\"
    Dim i As Integer, i1(5) As Double
    Dim DD(1000, 100) As Double
    Dim Genres(), Genres1 As String
    Dim s0, s1, s2, s3, s4, s5, s6, s7, s8 As String
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Genres1 = put + "1.mp3"
GetTagSTR(Genres1)
    End Sub
    Private Function GetTagSTR(ByVal path As String) As String()
        Dim L As Integer
        Dim FS As System.IO.FileStream
        FS = System.IO.File.Open(path, IO.FileMode.Open, IO.FileAccess.Read)
        L = FS.Length
        Dim buff(L - 1) As Byte
        FS.Read(buff, 0, L)
        FS.Close()
        FS.Dispose() ' на всякий случай
        s0 = System.Text.Encoding.Default.GetChars(buff, L - 128, 3) 'TAG - заголовок метатега
        s1 = System.Text.Encoding.Default.GetChars(buff, L - 128 + 3, 30) 'название
        s2 = System.Text.Encoding.Default.GetChars(buff, L - 128 + 33, 30) 'исполнитель
        s3 = System.Text.Encoding.Default.GetChars(buff, L - 128 + 63, 30) 'альбом
        s4 = System.Text.Encoding.Default.GetChars(buff, L - 128 + 93, 4) 'год
        s5 = System.Text.Encoding.Default.GetChars(buff, L - 128 + 97, 28) 'комментарий
        s6 = System.Text.Encoding.Default.GetChars(buff, L - 128 + 125, 1) 'нулевой байт.Если номер трека присутствует, этот байт равен 0. 
        s7 = System.Text.Encoding.Default.GetChars(buff, L - 128 + 126, 1) 'Номер трека в альбоме или 0. Учитывается только если предыдущее поле=0
        s8 = System.Text.Encoding.Default.GetChars(buff, L - 128 + 127, 1) 'Индекс в списке жанров или 255
        GetTagSTR.SetValue(s0, 0)
        GetTagSTR.SetValue(s1, 1)
        GetTagSTR.SetValue(s2, 2)
        GetTagSTR.SetValue(s3, 3)
        GetTagSTR.SetValue(s4, 4)
        GetTagSTR.SetValue(s5, 5)
        GetTagSTR.SetValue(CStr(AscW(s6)), 6)
        GetTagSTR.SetValue(CStr(AscW(s7)), 7)
        GetTagSTR.SetValue(CStr(AscW(s8)), 8)
        Return GetTagSTR
    End Function
 
    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "редактор MP3"
        Me.Button1.Text = "пуск"
        Genres = {"Blues", "Classic Rock", "Country", "Dance", "Disco", "Funk", "Grunge", "Hip- Hop", "Jazz", "Metal", "New Age", "Oldies", "Other", "Pop", "R&B", "Rap", "Reggae", "Rock", "Techno", "Industrial", "Alternative", "Ska", "Death Metal", "Pranks", "Soundtrack", "Euro-Techno", "Ambient", "Trip-Hop", "Vocal", "Jazz+Funk", "Fusion", "Trance", "Classical", "Instrumental", "Acid", "House", "Game", "Sound Clip", "Gospel", "Noise", "Alternative Rock", "Bass", "Punk", "Space", "Meditative", "Instrumental Pop", "Instrumental Rock", "Ethnic", "Gothic", "Darkwave", "Techno-Industrial", "Electronic", "Pop-Folk", "Eurodance", "Dream", "Southern Rock", "Comedy", "Cult", "Gangsta", "Top 40", "Christian Rap", "Pop/Funk", "Jungle", "Native US", "Cabaret", "New Wave", "Psychadelic", "Rave", "Showtunes", "Trailer", "Lo-Fi", "Tribal", "Acid Punk", "Acid Jazz", "Polka", "Retro", "Musical", "Rock & Roll", "Hard Rock", "Folk", "Folk-Rock", "National Folk", "Swing", "Fast Fusion", "Bebob", "Latin", "Revival", "Celtic", "Bluegrass", "Avantgarde", "Gothic Rock", "Progressive Rock",
           "Psychedelic Rock", "Symphonic Rock", "Slow Rock", "Big Band", "Chorus",
           "Easy Listening", "Acoustic", "Humour", "Speech", "Chanson", "Opera",
           "Chamber Music", "Sonata", "Symphony", "Booty Bass", "Primus", "Porn Groove",
           "Satire", "Slow Jam", "Club", "Tango", "Samba", "Folklore", "Ballad",
           "Power Ballad", "Rhytmic Soul", "Freestyle", "Duet", "Punk Rock", "Drum Solo",
           "Acapella", "Euro-House", "Dance Hall", "Goa", "Drum & Bass", "Club-House",
           "Hardcore", "Terror", "Indie", "BritPop", "Negerpunk", "Polsk Punk", "Beat",
           "Christian Gangsta", "Heavy Metal", "Black Metal", "Crossover", "Contemporary C",
           "Christian Rock", "Merengue", "Salsa", "Thrash Metal", "Anime", "JPop", "SynthPop"}
        ComboBox1.Items.Clear()
        For Each i As String In Genres
            ComboBox1.Items.Add(i)
        Next
 
        TextBox1.Text = s0
 
    End Sub
 
End Class

9 GetTagSTR(Genres1)

Dim TagSTR(8) As String = GetTagSTR(Genres1)

 Genres1 = put + "1.mp3"
        GetTagSTR2(Genres1)

   s0 = TextBox1.Text  'TAG - заголовок метатега