Dim xmlExportDoc As String
xmlExportDoc = "C:\Test\ep.xml"

Dim xmldoc As MSXML2.DOMDocument

Dim xmlExchDocList As MSXML2.IXMLDOMNodeList
Dim xmlInvTitlesList As MSXML2.IXMLDOMNodeList

Dim xmlExchDoc As MSXML2.IXMLDOMElement
Dim xmlInvTitle As MSXML2.IXMLDOMElement

Dim exchDocKind As MSXML2.IXMLDOMSelection

Set xmldoc = New MSXML2.DOMDocument

xmldoc.async = False
xmldoc.Load (xmlExportDoc)
Set xmlInvTitle = xmldoc.SelectNodes("//exchange-documents/exchange-document[0]/bibliographic-data??/invention-title[0]").Item(0)


MsgBox (xmlInvTitle)
'
'Set xmlExchDocList = xmldoc.SelectNodes("//exchange-documents/exchange-document")
'For Each xmlExchDoc In xmlExchDocList
' Set xmlInvTitlesList = xmlExchDoc.SelectNodes("./bibliographic-data/invention-title")
' Set exchDocKind = xmlExchDoc.SelectNodes("./@kind")
' For Each xmlInvTitle In xmlInvTitlesList
'  MsgBox exchDocKind(0).xml & ": " & xmlInvTitle.xml
' Next
'Next

Set xmldoc = Nothing