Codenstuff.com

Private Sub OpenPlaylistToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenPlaylistToolStripMenuItem.Click
        Dim OFD As New OpenFileDialog
        OFD.Filter = "Music Studio Playlist Files(*.mspf)|*.mspf"
        OFD.FileName = ""
        OFD.Title = "Open Playlist"
        If OFD.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Dim Reader As New System.IO.StreamReader(OFD.FileName)
            RichTextBox1.Text = Reader.Read
                Music.Items.Add(RichTextBox1.Text)
            ToolStripStatusLabel1.Text = "Opened: " & OFD.FileName
        End If
    End Sub

Private Sub SavePlaylistToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SavePlaylistToolStripMenuItem.Click
        Dim SFD As New SaveFileDialog
        SFD.Title = "Save Playlist"
        SFD.Filter = "Music Studio Playlist Files(*.mspf)|*.mspf"
        SFD.FileName = ""
        If SFD.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim Writer As New System.IO.StreamWriter(SFD.FileName)
            For i As Integer = 0 To RichTextBox1.Lines.Count
                Writer.WriteLine(RichTextBox1.Text)
            Next
        End If
    End Sub

Writer.WriteLine(RichTextBox1.Lines(i))

    Sub loadPlaylist(ByVal filename As String)
        Dim lines As String() = File.ReadAllLines(filename)
        For i As Integer = 0 To lines.Length - 1
            ListBox1.Items.Add(lines(i))
        Next
    End Sub

    Sub savePlaylist(ByVal filename As String)
        Dim tosave As String = ""
        For i As Integer = 0 To ListBox1.Items.Count - 1
            tosave += ListBox1.Items(i).ToString() & vbCrLf
        Next
        File.WriteAllText(filename, tosave)
    End Sub

    Sub addSong(ByVal songName As String, ByVal filename As String)
        File.AppendAllText(filename, songName & vbCrLf)
        loadPlaylist(filename)
    End Sub

    'extra
    Sub removeSongAt(ByVal index As Integer, ByVal filename As String)
        ListBox1.Items.Remove(index)
        savePlaylist(filename)
    End Sub