Help Deserialize XML - Very New

[Wesley008]

Alright, first off, I'm very new to this whole Serialize / Deserialize.

I'm trying to Deserialize a piece of XML that I serialized. Here's all my code:

Writing to it.

                Dim xmlSer As New XmlSerializer(GetType(List(Of ClassInformation)))
                Dim ClassesList As New List(Of ClassInformation)
                ClassesList.Add(New ClassInformation(.txtClassName.Text, _
                                         .txtClassCode.Text, _
                                         .txtClassRoom.Text, _
                                         .numGrade.Value))
                Dim sw As New StreamWriter(Application.StartupPath & "\Data\" & .txtClassCode.Text & ".xml", True)
                xmlSer.Serialize(sw, ClassesList)
                sw.Close()

Declaring my Class

Public Class ClassInformation
    Public ClassName As String
    Public ClassCode As String
    Public ClassRoom As String
    Public Grade As String

    Public Sub New()
    End Sub

    Public Sub New(ByVal nClassName As String, ByVal nClassCode As String, ByVal nClassRoom As String, ByVal nGrade As String)
        ClassName = nClassName
        ClassCode = nClassCode
        ClassRoom = nClassRoom
        Grade = nGrade
    End Sub
End Class

Reading

    Public Sub ReadClass()
        With frmClassCreate
            Dim xmlDe As New XmlSerializer(GetType(ClassInformation))
            Dim sr As New StreamReader(Application.StartupPath & "\Data\1.xml", True)
            Dim sName As New ClassInformation
            If sr.EndOfStream <> True Then
                sName = xmlDe.Deserialize(sr)
                MsgBox(sName.ClassName)
            End If
            sr.Close()
        End With
    End Sub