XmlNode.WriteContentTo saves all the child nodes of the node to the specified XmlWriter.
Option Explicit
Option Strict
Imports System
Imports System.IO
Imports System.Xml
Public Class Sample
Public Shared Sub Main()
Dim doc As New XmlDocument()
doc.LoadXml("<book xmlns:bk='urn:samples' bk:ISBN='1-111111-57-5'>" & _
"<title>C#</title>" & _
"</book>")
Dim root As XmlNode = doc.FirstChild
Dim writer As New XmlTextWriter(Console.Out)
writer.Formatting = Formatting.Indented
root.WriteContentTo(writer)
End Sub 'Main
End Class 'Sample