QTP XML Parser

How to parese XML imported from QTP repository?
Dim XMLNode, XMLFile
XMLFile = "C:\QTPObj.xml"
Set XMLNode = XMLUtil.CreateXMLFromFile(XMLFile).GetRootElement()
Function xmlParse(ByVal nodeName)
Dim Attrib, Node, firstChild, intX, intY
Set Attrib = nodeName.Attributes()
Set Node = nodeName.ChildElements ()
If nodeName.ElementName () = "qtpRep:Object" Then
If Attrib.Count = 2 Then
Print Attrib.Item(1).Value & "(" & Attrib.Item(2).Value &")."
End If
End If
'Get Childnode
For intX = 1 To Node.Count
Set firstChild = Node.Item(intX)
xmlParse firstChild
Next
End Function
'Parse the XML data
MatchData XMLNode