VBA XML Beautiful

Function XmlBeautiful(ByVal xmldoc, Optional ByVal EmitXMLDeclaration As Boolean) As String
    Dim objReader As SAXXMLReader60
    Set objReader = New SAXXMLReader60
    
    Dim objWriter As MXXMLWriter60
    Set objWriter = New MXXMLWriter60
    
    objWriter.Indent = True
    objWriter.omitXMLDeclaration = Not EmitXMLDeclaration
    Set objReader.contentHandler = objWriter
    objReader.parse (xmldoc)
    XmlBeautiful = objWriter.output
End Function