Read xml child node from excel using vba macro

I'm reading an xml document using vba in access.. here I'm trying to read all sub tags.. my xml is as follows

<comment> <noteype></notetype> 
<comments></comments> 
</comment> 
<name> 
<firstname></firstname> 
</name>
<dob>12.12.1993</dob>

when i'm readin this by my code using

if xNode.childNodes.length >= 1 then
for each Xchild in xNode.ChildNodes
set xChild2=xodc.createDomDocument (xChild.baseName)
xNode.appendChild xChild2
next
end if

this code returns error when reading the .. if I change the condition to xNod.childNodes.Length > 1 then I'm unable to read the and it's sub tags.. I need to read tags only by using iteration not by tag names Thanks in advance.. Waiting for your reply..