Dim doc As New MSXML2.DOMDocument
doc.load("<путь к файлу что выше>")
Dim ULIDNodeList As MSXML2.IXMLDOMNodeList, NodeLine As MSXML2.IXMLDOMNode
ULIDNodeList = doc.selectNodes("//PL[ULID='1']")
NodeLine = ULIDNodeList.item(0)
While Not NodeLine Is Nothing
Debug.Print(NodeLine.firstChild.firstChild.nodeValue)
nodeLine = NodeLine.nextSibling
End While