Option Explicit
 
Dim objXML              As MSXML2.DOMDocument60
Dim objNtryNodes        As MSXML2.IXMLDOMNodeList
Dim objNtry             As MSXML2.IXMLDOMNode
Dim objTxDtlsNodes      As MSXML2.IXMLDOMNodeList
Dim objTxDtls           As MSXML2.IXMLDOMNode
Dim objNodeAmt          As MSXML2.IXMLDOMNode
Dim objAttr             As MSXML2.IXMLDOMAttribute
Dim objNodeZahler       As MSXML2.IXMLDOMNode
..
..
Set objNtryNodes = objXML.documentElement.selectNodes( _
  "./BkToCstmrDbtCdtNtfctn/Ntfctn/Ntry")
 
For Each objNtry In objNtryNodes