Sorry mein Fehler, hätte ich genauer beschreiben sollen.

Bei 

Sub XMLParser3()
    Dim xDoc As New MSXML2.DOMDocument60
    Dim nodesAllNeeded As Variant
    Dim nodeOneNeeded As Variant
     
    Set xDoc = New MSXML2.DOMDocument60
     
    With xDoc
        .async = False
        .validateOnParse = True
         
        If xDoc.Load("C:\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

Bekomme ich die Meldung "Typen unverträglich"

Bei

Sub XMLParser3()
    Dim xDoc As New MSXML2.DOMDocument60
    Dim nodesAllNeeded As Object
    Dim nodeOneNeeded As Object
     
    Set xDoc = New MSXML2.DOMDocument60
     
    With xDoc
        .async = False
        .validateOnParse = True
         
        If xDoc.Load("C:\Users\beilstein\Desktop\Test.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

Kommt die Meldung "Objekt erforderlich"