Search entire XML tree with recursive method XML DOM, Visual Basic 6.0

Private function SearchXMLNode(xmlNode as Object,nodeName as string) as Object
  dim ochild,ochild1
  for each ochild in xmlNode.childNodes
     if  vba.lcase$(ochild.nodename) = vba.lcase$(nodeName) then           set SearchXMLNode =  ochild
           exit function
     end if
     SearchXMLNode = SearchXMLNode(ochild)
     if not SearchXMLNode is nothing then exit function
  next ochild
End Function