Dim nodeList As MSXML2.IXMLDOMNodeList
    Dim node As MSXML2.IXMLDOMNode
    Dim attr As MSXML2.IXMLDOMNode
    
    With New MSXML2.DOMDocument40
        .loadXML _
            "<?xml version=""1.0""?>" & _
            "<?xml-stylesheet type=""text/xsl"" href=""/gpm/include/perform.xsl""?>" & _
            "<perf-config>" & _
             "<server name=""RMF-DDS-Server"" version=""ZOSV1R2"" functionality=""2000""/>" & _
             "<performance-data>" & _
             "<buttons>YES</buttons>" & _
             "<metric id=""8D2560"" description=""% total physical utilization (CP) by partition"" type=""multi"" resource="",1B15A,CPC"" workscope="",,G"" filter=""HI=20"">" & _
             "<timestamp localtime=""11/30/2006 18:33:20"" timestring=""20061130183320""/>" & _
             "<gathererinterval seconds=""100""/>" & _
             "<timerange localstart=""20061130183140"" localend=""20061130183320"" utcstart=""20061130143140"" utcend=""20061130143320""/>" & _
             "<scroll prev=""20061130183050"" next=""20061130183410""/>" & _
             "<row label=""LP6"" value=""6.5"" per=""6.5"" ex=""NONE""/>" & _
             "<row label=""LP4"" value=""3.4"" per=""3.4"" ex=""NONE""/>" & _
             "<row label=""LP2"" value=""0"" per=""0"" ex=""NONE""/>" & _
             "<row label=""LP1"" value=""0"" per=""0"" ex=""NONE""/>" & _
             "<row label=""LP5"" value=""0"" per=""0"" ex=""NONE""/>" & _
             "<row label=""ZOSEA"" value=""0"" per=""0"" ex=""NONE""/>" & _
             "</metric>" & _
             "</performance-data>" & _
            "</perf-config>"
        Set nodeList = .selectNodes("//row")
        Debug.Print "rows:"; nodeList.Length
        For Each node In nodeList
            For Each attr In node.Attributes
                Debug.Print attr.nodeName; "="; attr.Text,
            Next
            Debug.Print
        Next
    End With