Opening a file in VB

[matthewfrance7]

This code should open an MP3 file into a list box:

 Private Sub btnAddFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddFile.Click
        Dim OpenFile As New OpenFileDialog
        Dim file As String
 
        OpenFile.InitialDirectory = "C:\Documents and Settings\Matth\My Documents\test1\"
        OpenFile.Filter = "MP3 Files (*.mp3)|*.MP3"
        OpenFile.RestoreDirectory = True
        OpenFile.Multiselect = True
        If OpenFile.ShowDialog() = Windows.Forms.DialogResult.OK Then
            For Each file In OpenFile.FileNames
                Dim sread As New IO.StreamReader(file), s As String() = sread.ReadToEnd().Split(Chr(10))
                For Each str As String In s
                    FileList.Items.Add(str)
                Next
            Next
        End If
    End Sub

Unfortunately, it doesn't open the file in the list box as a '.mp3' file, but it just outputs 'A Music File{}'

could someone help please???