Kann sein, dass nodesAllNeeded auch als Variant deklariert werden muss, damit die For Each Schleife funktioniert. Bin gerade nicht sicher.

Sub XMLParser()
    Dim xDoc As New MSXML2.DOMDocument60
    Dim nodesAllNeeded As IXMLDOMElement
    Dim nodeOneNeeded As Variant
    
    Set xDoc = New MSXML2.DOMDocument60
    
    With xDoc
        .async = False
        .validateOnParse = True
        
        If xDoc.Load("C:\Test\Beispiel.xml") = False Then
            Debug.Print .parseError.reason, .parseError.ErrorCode
            Exit Sub
        End If
        
        Set node = xDoc.getElementsByTagName("renderedResult")
        For Each nodeOneNeeded In nodesAllNeeded
            'Ausgabe im Direktfenster
            'In der VBA IDE aufrufen mit Strg + G
            Debug.Print nodeOneNeeded.getAttribute("concentration")
        Next nodeOneNeeded
    End With
End Sub