Хранение настроек в XML

Friend Function ReadSettings(ByVal adress As String) As String
        On Error Resume Next
        Dim myXml As New System.Xml.XPath.XPathDocument("C:\Settings.xml")
        ReadSettings = ""
        ReadSettings = myXml.CreateNavigator.SelectSingleNode(adress).Value
    End Function

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim myMemoryStream As New IO.MemoryStream
        Dim myXml As New System.Xml.XmlTextWriter("C:\Settings.xml", System.Text.Encoding.GetEncoding(1251))
        myXml.WriteStartDocument()
        myXml.Formatting = System.Xml.Formatting.Indented
        myXml.Indentation = 20
        myXml.WriteStartElement("НАСТРОЙКИ")
        myXml.WriteStartElement("ОБО_МНЕ")
        myXml.WriteAttributeString("ВОЗРАСТ", "27")
        myXml.WriteAttributeString("ПОЛ", "МУЖСКОЙ")
        myXml.WriteEndElement()
        myXml.WriteStartElement("ЗАГРУЗКА")
        myXml.WriteAttributeString("ИМЯ_ФОРМЫ", Me.Text)
        myXml.WriteAttributeString("СЛЕВА", Me.Left)
        myXml.WriteAttributeString("СВЕРХУ", Me.Top)
        myXml.WriteAttributeString("ШИРИНА", Me.Width)
        myXml.WriteAttributeString("ВЫСОТА", Me.Height)
        myXml.WriteEndElement()
        myXml.WriteEndElement()
        myXml.Flush()
        myXml.Close()
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        On Error Resume Next
        Dim myXml As New System.Xml.XPath.XPathDocument("C:\Settings.xml")
        Me.Left = myXml.CreateNavigator.SelectSingleNode("/НАСТРОЙКИ/ЗАГРУЗКА/@СЛЕВА").Value
        Me.Top = ReadSettings("/НАСТРОЙКИ/ЗАГРУЗКА/@СВЕРХУ")
        Me.Text = ReadSettings("/НАСТРОЙКИ/ЗАГРУЗКА/@ИМЯ_ФОРМЫ")
        Me.Width = ReadSettings("/НАСТРОЙКИ/ЗАГРУЗКА/@ШИРИНА")
        Me.Height = ReadSettings("/НАСТРОЙКИ/ЗАГРУЗКА/@ВЫСОТА")
    End Sub