XML Pretty Print - Merapikan Format File XML

Private Sub PrettyPrint(Parent As IXMLDOMNode, Optional Level As Integer)
    Dim Node As IXMLDOMNode
    Dim Indent As IXMLDOMText

    If Not Parent.ParentNode Is Nothing And Parent.ChildNodes.Length > 0 Then
        For Each Node In Parent.ChildNodes
            Set Indent = Node.OwnerDocument.createTextNode(vbNewLine & String(Level, vbTab))

            If Node.NodeType = NODE_TEXT Then
                If Trim(Node.Text) = "" Then
                    Parent.RemoveChild Node
                End If
            ElseIf Node.PreviousSibling Is Nothing Then
                Parent.InsertBefore Indent, Node
            ElseIf Node.PreviousSibling.NodeType <> NODE_TEXT Then
                Parent.InsertBefore Indent, Node
            End If
        Next Node
    End If

    If Parent.ChildNodes.Length > 0 Then
        For Each Node In Parent.ChildNodes
            If Node.NodeType <> NODE_TEXT Then PrettyPrint Node, Level + 1
        Next Node
    End If
End Sub