XML pretty printing in VBA

XMLModule.bas

Function PrettyXML(ByVal Source, Optional ByVal EmitXMLDeclaration As Boolean) As String

    Dim Writer As MXXMLWriter, Reader As SAXXMLReader
    Set Writer = New MXXMLWriter
    Writer.indent = True
    Writer.omitXMLDeclaration = Not EmitXMLDeclaration
    Set Reader = New SAXXMLReader
    Set Reader.contentHandler = Writer
    Reader.Parse Source
    PrettyXML = Writer.Output

End Function

Note: If you are using MSXML 6.0, you need to qualify the declarations with a 6.0 on the end.

Function PrettyXML(ByVal Source, Optional ByVal EmitXMLDeclaration As Boolean) As String
    Dim Writer As MXXMLWriter60, Reader As SAXXMLReader60
    Set Writer = New MXXMLWriter60
    Writer.indent = True
    Writer.omitXMLDeclaration = Not EmitXMLDeclaration
    Set Reader = New SAXXMLReader60
    Set Reader.contentHandler = Writer
    Reader.parse Source
    PrettyXML = Writer.Output
End Function

This worked well for me in Access VBA.