Type Info:
XMLDOMNode As IXMLDOMNode
Dim SubFile As SubFile Dim DOMNode As IXMLDOMNode Set SubFile = Application.ActiveProjectFile.SubFiles(1) Set DOMNode = SubFile.XMLDOMNode