Processing XML

Try this ...

Sub Main

XML_Load("C:\\temp\\xml\\xmlfile.xml")

End Sub

'--------------------------------
' LOAD XML DOCUMENT
'-------------------------------

Function XML_Load(path)

Dim objXML As Object
Set objXML = CreateObject("Microsoft.XMLDOM")

objXML.validateOnParse = True               ' Check document structure
objXML.setProperty "SelectionLanguage", "XPath"            'use  XPath to select specific Node

' load document
If Not objXML.Load(path) Then
' Error when loading
MsgBox "ERROR LOADING DOCUMENT." & vbCrLf & vbCrLf _
& "REASON: " & objXML.parseError.reason & vbCrLf _
& "LINE: " & objXML.parseError.Line, vbOKOnly Or vbExclamation, "ERROR"
Set objXML = Nothing
End If

'just  for debugging and see results

Print objXML.xml
Print objXML.selectSingleNode("Data/Field").text

End Function

thanks aescudero, that seems to work (well it doesn't crash) but the final Print outputs blanks (I guess because I'm after the attribute)

correct! Modify your XML and see you will get results.

Anyhow you can have Access to the Attributes :

Print objXml.selectSingleNode("/Data/Field]").attributes(0).text
Print objXml.selectSingleNode("/Data/Field]").attributes.length

You should further extend the code a bit  to check if an XML Elements exists

e.g.

Dim oNode As IXMLDOMNode

Set oNode = objXML.SelectSingleNode("/Address/Contact[Name='Peter']/Street")

If Not oNode Is Nothing Then

Debug.Print oNode.Text

Else

MsgBox "Eelemet not found!", vbOKOnly Or vbExclamation, "Error"