Imports System.XML

Public Class XMLReadWrite

    Public Sub New()
        ' ***********
        ' *  Lezen  *
        ' ***********
        Dim docreader As New XmlDocument()
        ' Laad de file
        docreader.Load("file.xml")

        Dim doc_node, m_node As XmlNode
        ' Lees de begin tag
        doc_node = docreader.DocumentElement

        ' Children van de begintag doorlopen
        For Each m_node In doc_node.ChildNodes
            MsgBox(m_node.Name)
        Next

        ' ***************
        ' *  Schrijven  *
        ' ***************
        ' Geef output file
        Dim xwriter As New XmlTextWriter("output.xml", System.Text.Encoding.UTF8)
        ' Document declaration
        xwriter.WriteStartDocument(True)

        ' Begintag schrijven
        xwriter.WriteStartElement("Document")

        ' Subelement aanmaken
        xwriter.WriteStartElement("Page")

        ' Attribuut aan Subelement toevoegen
        xwriter.WriteStartAttribute("NaamAttr")
        xwriter.WriteString("Waarde")
        xwriter.WriteEndAttribute()

        ' Subelement afsluiten
        xwriter.WriteEndElement()

        ' Pagetag en Documenttagafsluiten
        xwriter.WriteEndElement()
        xwriter.WriteEndElement()

        ' Bestand opslaan
        xwriter.Flush()


    End Sub
End Class