How to get the values of the XML tags ?

Content  of  "sample.xml" file from which the tag values will retrieved using below code

   <book id="bk101">
      <author>Gambardella, Matthew</author>
      <title>XML Developer's Guide</title>
      <description>An in-depth look at creating applications 
      with XML.</description>
   <book id="bk102">
      <author>Ralls, Kim</author>
      <title>Midnight Rain</title>
      <description>A former architect battles corporate zombies, 
      an evil sorceress, and her own childhood to become queen 
      of the world.</description>

'Create Microsoft.XMLDOM  object
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
xmlDoc.Async = False 

'path of XML file

'Load the XML File

'Give the XML path of XML tag you want to access and /text() to access the value of tag.
'XML path follows the hierarchy
'XML path for author tag will start from  catalog->book->author  
'so the XML path will be /catalog/book/author
'Text() will gie the value of the tag
Set nodes = xmlDoc.SelectNodes("/catalog/book/author/text()")
Msgbox  " total count of Author tag is " &  nodes.length
For i = 0 To (nodes.Length - 1)

Author= nodes(i).NodeValue

Msgbox  "The name of Author is " & Author


'To get the description tag value in the XML file

Set nodes = xmlDoc.SelectNodes("/catalog/book/description/text()")
Msgbox  " total count of  Description tag is  " &  nodes.length 
For i = 0 To (nodes.Length - 1)
Descripton= nodes(i).NodeValue
Msgbox  "The Description  is  < " & Descripton & "   >  "

 Set xmlDoc=nothing