Archivo xml leer sus nodos desde Vb6.0

Buen día Experto e inicio de semana

Estoy tratando de leer y pasar los datos de los nodos de un xml a un listView aunque podría ser mejor a un MSFlexgrid, con el siguiente código que encontré en internet el autor es Ruben Vigon.

Private Sub Form_Load()
Dim Doc As MSXML2.DOMDocument, Nod As IXMLDOMNode
Set Doc = New MSXML2.DOMDocument
If Doc.Load(App.Path & "\ejemplo.xml") Then
For Each Nod In Doc.getElementsByTagName("Comprobante")
With ListView1.ListItems.Add(, , Nod.selectSingleNode("Conceptos").nodeTypedValue, , 1)
.SubItems(1) = Nod.selectSingleNode("Concepto cantidad").nodeTypedValue
.SubItems(2) = Nod.selectSingleNode("unidad").nodeTypedValue
.SubItems(4) = Nod.selectSingleNode("noIdentificacion").nodeTypedValue
.SubItems(5) = Nod.selectSingleNode("descripción").nodeTypedValue
.SubItems(6) = Nod.selectSingleNode("valorUnitario").nodeTypedValue
.SubItems(7) = Nod.selectSingleNode("importe").nodeTypedValue
End With
Next Nod
stbEmpleados.SimpleText = App.Path & "\ejemplo.xml"
Else
MsgBox "No se puede abrir el archivo " & App.Path & "\ejemplo.xml", vbCritical, "Error"
End If
Set Nod = Nothing
Set Doc = Nothing
End Sub

La idea es leer el nodo y pasar todos su hijos a una columna cada datos

la estructura del xml es no fue posible ponerla podria enviartela por mail???

Agradezco de antemano tu ayuda