Set objXML = CreateObject("Msxml2.DOMDocument")
objXMl.async="false"
objXML.load("sites.xml")

strIP = "'10.180.'"
strQuery = "//sites/site[ip=" & strIP & "]/prefix"
'strQuery = "/sites/site/ip"

MsgBox strQuery
Set nList = objXMl.selectNodes(strQuery)

For Each x In nList
MsgBox x.text
Next