Сохранение данных в XML-файл

Dim fileName As String = "D:\Exp\ccc.xml"
        'загрузка документа
        Dim xdoc As XDocument = XDocument.Load(fileName)
        'получаем столицу России
        For Each xe As XElement In xdoc.Element("Root").Elements("Country")
            If xe.Attribute("name").Value = "Russia" Then
                Console.WriteLine(xe.Element("Capital").Value)
                'Изменить столицу
                xe.Element("Capital").Value = "St.Petersburg"
            End If
        Next

Imports System.Xml.Linq

xdoc.Save(fileName)

Imports System.Xml.Serialization

Dim sw As StreamWriter = File.AppendText("logfile-entries.txt")
Dim xtw As New XmlTextWriter(sw)
 
        xtw.WriteStartElement("event")
        xtw.WriteElementString("ip", "192.168.0.1")
        xtw.WriteElementString("http_method", "POST")
        xtw.WriteElementString("file", "comments.aspx")
        xtw.WriteElementString("date", "1999-05-05T19:25:13.238220-08:00")
 
        xtw.Close()

Dim newCards As String = data
 
        ' Load the XmlDocument.
        Dim xd As New XmlDocument()
        xd.Load("z:\XmlTest.xml")
 
        ' Create a new XmlDocumentFragment for our document.
        Dim docFrag As XmlDocumentFragment = xd.CreateDocumentFragment()
        ' The Xml for this fragment is our newPerson string.
        docFrag.InnerXml = newCards
        ' The root element of our file is found using
        ' the DocumentElement property of the XmlDocument.
        Dim root As XmlNode = xd.DocumentElement
        ' Append our new Person to the root element.
        root.AppendChild(docFrag)
 
        ' Save the Xml.
        xd.Save("z:\XmlTest.xml")

Dim newCards As String = _
            "<Cardnumb ID='8'>" & cr & _
            "    <Cards_Type Type='1'/>" & cr & _
            "   <Cards_Type_Code Code='1'/>" & cr & _
            "    <Raion Raion='15'/>" & cr & _
            "    <Name>Pipiskin Ivan</Name>" & cr & _
            "    <Date>10.10.2011</Date>" & cr & _
            "    <Product>" & cr & _
            "        <LM_Code>12345678</LM_Code>" & cr & _
            "        <Name>Сверло для Пенопласта</Name>" & cr & _
            "        <Price>180</Price>" & cr & _
            "        <Qty>2</Qty>" & cr & _
            "    </Product>" & cr & _
            "    <Product>" & cr & _
            "    <LM_Code>12345678</LM_Code>" & cr & _
            "        <Name>Метелка для туалета</Name>" & cr & _
            "        <Price>180</Price>" & cr & _
            "        <Qty>2</Qty>" & cr & _
            "    </Product>" & cr & _
            "</Cardnumb>"

 Do While XmlNodeType.EndElement
                         For Each elMo As XElement In Xdoc.Element("Lists").Elements("Title")
                            NewUserForm.UserGroup.Items.Add(el.Element("Num" & IncCount).Value)
                            NewUserForm.UserGroupShort.Items.Add(Mid(Split("Num" & IncCount, ",")(0), 4))
                        Next
                    Loop