Private Sub ShowSingleNodes()
    Dim nodeList        As MSXML2.IXMLDOMNodeList
    Set nodeList = oDom.selectNodes( _
      "/AbaConnectContainer/Task/Parameter/Transaction")
    If Not nodeList Is Nothing Then
       Dim node     As MSXML2.IXMLDOMNode
       Dim name     As String
 
       For Each node In nodeList
           name = node.selectSingleNode("ProjectName").Text
       Next node
    End If
End Sub