Xml Y Visual Basic 6.0

[Juanda]

Hola a todos: necesito saber como leer un archivo XML con una aplicacion VISUAL BASIC 6.0, ya que tengo por hay un script que no me funciona, se los muestro:

Public Sub CargaDoc()
Dim oParser As MSXML.DOMDocument
Set oParser = New MSXML.DOMDocument
If oParser.Load("test.xml") Then
MuestraNodos oParser.chilNodes
Else
MsgBox "Ha ocurrido un error."
End If
End Sub

Public Sub MuestraNodos (ByRef Nodos As MSXML.IXMLDOMNodeList)
Dim oNodo As MSXML.IXMLDOMNode
For Each oNodo In Nodos
If oNodo.nodeType = NODE_TEXT Then
Debug.Print oNodo.parentNode.nodeName & "=" & oNodo.nodeValue
End If
If oNodo.hasChildNodes Then
MuestraNodo oNodo.childNodes
End If
Next oNodo
End Sub

Tambien me gustaria saber como hacerlo utilizando una grilla por ejemplo un label o un text

De antemano muchas gracias