Dim xdoc As New Xml.XmlDocument
        Dim ms As New IO.MemoryStream()
        Dim xw As New Xml.XmlTextWriter(ms, System.Text.Encoding.UTF8)
 
        xdoc.LoadXml("<Customer><Person><Name><Firstname" & _
          "Name='John'/><Lastname Name='Travolta'/></Name></Person></Customer>")
        xw.Indentation = 2
        xw.Formatting = System.Xml.Formatting.Indented
        xdoc.WriteTo(xw)
        xw.Flush()
        ms.Position = 0
        rtb.LoadFile(ms, RichTextBoxStreamType.PlainText)

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov