Access XML>>>>>>>>>>>>>>>>>

<bookstore>
    <book>
    <title published="2001">book1</title>
    <author>author1</author>
    </book>
    <book>
    <title published="2002">book2</title>
    <author>author2</author>
    </book>
    <book>
    <title published="2003">book3</title>
    <author>author3</author>
    </book>
</bookstore>

Set ObjXML=CreateObject("Microsoft.XMLDOM")
ObjXML.Async=False
ObjXML.Load("C:\Users\SATHISH\Desktop\test01.xml")

Set ObjNodes=ObjXML.SelectNodes("bookstore/book/title[../author = 'author3']/text()")
MsgBox "Total books : "&ObjNodes.Length

For i=0 to (ObjNodes.Length-1)
    MsgBox ObjNodes(i).NodeValue

Next