using Childnodes

For the given XML File to read data below is the code

Set xm=CreateObject("Microsoft.XMLDOM")
xm.load "e:\xmlf\book.xml"
Set c1=xm.documentElement.childNodes

For i=0 to c1.length-1
   msgbox c1.item(i).nodeName
   set c2=c1.item(i).childNodes
   for j=0 to c2.length-1
       msgbox c2.item(j).text
   next
Next