Sub xmlreadexample()

Dim sNS         As String
Dim sNSCustom   As String
Dim sNSPrefix   As String

Dim part        As CustomXMLParts
Dim parts       As CustomXMLParts


Dim nodes       As CustomXMLNodes
Dim node        As CustomXMLNode

    Set parts = ThisDocument.CustomXMLParts
    
    sNSCustom = "http://example.com/arc"

    For Each part In parts
        sNS = part.NamespaceURI
        If Len(sNS) = 0 Then
            Set nodes = part.SelectNodes("/arcRoot/arcProperties")
            If nodes.count > 0 Then
                For Each node In nodes
                    Debug.Print "NodeValue     = " & node.NodeValue
                    Debug.Print "NodeText      = " & node.Text
                    Debug.Print "Attribute no  = " & node.Attributes.count
                    For i = 1 To node.Attributes.count
                        Debug.Print "    Attrib name    = " & node.Attributes.Item(i).BaseName
                        Debug.Print "    Attrib value   = " & node.Attributes.Item(i).Text
                    Next i
                Next node
            End If
        Else
            If StrComp(sNS, sNSCustom, vbTextCompare) - 0 Then
                sNSPrefix = part.NamespaceManager.LookupPrefix(sNS)
                Set nodes = part.SelectNodes("/" & sNSPrefix & ":" & "arcRoot/arcProperties")
                If nodes.count > 0 Then
                    For Each node In nodes
                        Debug.Print "NodeValue     = " & node.NodeValue
                        Debug.Print "NodeText      = " & node.Text
                        Debug.Print "Attribute no  = " & node.Attributes.count
                        For i = 1 To node.Attributes.count
                            Debug.Print "    Attrib name    = " & node.Attributes.Item(i).BaseName
                            Debug.Print "    Attrib value   = " & node.Attributes.Item(i).Text
                        Next i
                    Next node
                End If
            End If
        End If
    Next
                    
            
End Sub