XmlTextWriter.WriteEndElement closes one element and pops the corresponding namespace scope.
Option Strict Option Explicit Imports System Imports System.IO Imports System.Xml Public Class Sample Private Const filename As String = "sampledata.xml" Public Shared Sub Main() Dim writer As XmlTextWriter = Nothing writer = New XmlTextWriter(filename, Nothing) writer.Formatting = Formatting.Indented writer.WriteStartDocument() Dim PItext As String = "type=""text/xsl"" href=""book.xsl""" writer.WriteProcessingInstruction("xml-stylesheet", PItext) writer.WriteDocType("book", Nothing, Nothing, "<!ENTITY h ""hardcover>") writer.WriteComment("sample XML") writer.WriteStartElement("book") writer.WriteAttributeString("genre", "Computer") writer.WriteAttributeString("ISBN", "1-111111-014") writer.WriteElementString("title", "C#") writer.WriteStartElement("style") writer.WriteEntityRef("h") writer.WriteEndElement() writer.WriteElementString("price", "9.9") writer.WriteCData("Prices 15% off!!") writer.WriteEndElement() writer.WriteEndDocument() writer.Flush() writer.Close() Dim doc As New XmlDocument() doc.PreserveWhitespace = True doc.Load(filename) Console.Write(doc.InnerXml) End Sub End Class