WEB LISTING 1: The ShowXML Procedure

Private Sub ShowXML

' Save the XML to a temporary file
mobjXML.Save "temp.xml"

' Use the Web browser OCX to open the temporary file
WebBrowser1.Navigate2 "file://" & App.Path & "/temp.xml"

End Sub