Set xmlDoc = CreateObject("MSXML2.DOMDocument")
.
.
    Dim xmlRoot As MSXML2.IXMLDOMNode
    If FileExists(strFilename) Then
 
        xmlDoc.Load strFilename
        Set xmlRoot = xmlDoc.documentElement
        ZweigLesen xmlRoot    
    End If
.
.
 
Sub ZweigLesen(xmlNode As MSXML2.IXMLDOMNode)
 
    Dim xmlTmp As MSXML2.IXMLDOMNode
    Dim xmlTmpElem As MSXML2.IXMLDOMElement
    If xmlNode.nodeType = NODE_ELEMENT Then
        Set xmlTmpElem = xmlNode
        If xmlTmpElem.baseName <> _
          xmlNode.ownerDocument.documentElement.baseName Then
            strXML = strXML & xmlTmpElem.NodeName & vbCrLf
            strAttributes = checkAttributes(xmlNode)
            If strAttributes <> "" Then
            strXML = strXML & strAttributes & vbCrLf
            End If
 
            If xmlTmpElem.hasChildNodes Then
 
                If xmlTmpElem.firstChild.nodeType = NODE_TEXT Then
                    strXML = strXML & " : " & xmlTmpElem.firstChild.nodeValue
                End If
            End If
        End If
    End If
 
    If xmlNode.hasChildNodes = True Then
        For Each xmlTmp In xmlNode.childNodes()
            ZweigLesen xmlTmp
        Next xmlTmp
    End If
 
End Sub