VB 保存信息为xml到本地，读取已保存的信息

Imports System.Text
Imports System.Xml

Public Class Form2
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
            SavePath = FolderBrowserDialog1.SelectedPath
        End If
        Dim name As String = TextBox1.Text
        Dim number As String = TextBox2.Text
        Dim classroom As String = TextBox3.Text
        Dim face As String = TextBox4.Text
        Dim moblie As String = TextBox5.Text
        WriteXML(name, number, classroom, face, moblie)
        MessageBox.Show("保存成功!")
    End Sub

    Dim SavePath As String = String.Empty
    Private Sub WriteXML(name As String, number As String, classro