Build XmlDocument and Save it use the XmlTextWriter : XmlTextWriter « XML « VB.Net Tutorial

1. VB.Net Tutorial
2. XML
3. XmlTextWriter

Imports System.IO
Imports System.Xml
Imports System.Xml.Schema


public class Test
   public Shared Sub Main
        Dim Doc As New XmlDocument()

        Dim XmlProc As XmlDeclaration
        XmlProc = Doc.CreateXmlDeclaration("1.0", "UTF-8", "yes")
        Doc.AppendChild(XmlProc)

        ' Create the root node.
        Dim Root As XmlElement
        Root = Doc.CreateElement("RootNode")

        ' Create a child node.
        Dim Child As XmlElement
        Child = Doc.CreateElement("ChildNode")
        Child.InnerText = "Child Node Value"

        ' Add an attribute to the child node.
        Dim Attr As XmlAttribute
        Attr = Doc.CreateAttribute("ChildAttribute")
        Attr.Value = "Child Node Attribute"
        Child.Attributes.Append(Attr)

        ' Add a comment to the root node.
        Dim ChildComm As XmlComment
        ChildComm = Doc.CreateComment("This is a child node.")
        Root.AppendChild(ChildComm)

        ' Place the child node within the root node.
        Root.AppendChild(Child)

        ' Place the root node within the document.
        Doc.AppendChild(Root)

        ' Write the document to disk.
        Dim Output As New XmlTextWriter("SimpleXml.xml", System.Text.Encoding.UTF8)
        Doc.WriteTo(Output)
        Output.Close()

   End Sub
End class