set xmlFile=createobject("MSXml2.DOMDocument")
xmlfile.async=false
xmlFile.load("filefullname") 'XML文件名,带上路径,比如c:\bbb.XML
xmlFile.setProperty "SelectionLanguage", "XPath"
set xmlDoct=xmlfile.documentelement
set MGroup=xmldoc.getelementsbytagname("GROUP") 'GROUP是某个元素
Dim dom As MSXML.DOMDocument
Set dom = New MSXML.DOMDocument
If dom.Load("D:\data.xml") = False Then
MsgBox "Load xml file fail!"
Set dom = Nothing
End If