Imports System.Xml Public Class Example1 Shared Sub Main() Dim reader As XmlReader Dim writer As XmlWriter reader = XmlReader.Create("pubs.xml") writer = XmlWriter.Create("output.xml") While reader.Read() writer.WriteNode(reader, True) End While reader.Close() writer.Close() End Sub End Class