Leer XML

[nolo41]

Hola. Primero aclararo que soy nuevo en XML. Estoy leyendo un archivo .xml que tiene una estructura mas o menos asi:

1
2
3
3
4
4
3

1
2
3
3
4
4
3

Cada nro es un "nodo" xml. Yo quisiera que mi programa VB lea:

a) Cuantos nivel 1 hay ?
b) Dentro de cada nivel 1, cuantos niveles 2 hay ?
c) Dentro de cada nivel 2, cuantos niveles 3 hay ?

================= Mi programa VB =======================
Dim oXMLDom As New DOMDocument40


Private Sub Form_Load()

Dim ws_ligne, ws_colonne
Dim fs, f, f1, fc, s
Dim extension_file As String

On Error GoTo err1

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(App.Path)
Set fc = f.Files


For Each f1 In fc
extension_file = Right(f1.Name, 4)

If extension_file = ".xml" Then
' Load an xml document into a DOM instance.
oXMLDom.async = False
oXMLDom.validateOnParse = False
oXMLDom.resolveExternals = False
oXMLDom.preserveWhiteSpace = True
If oXMLDom.Load(App.Path + "\" + f1.Name) = False Then
MsgBox "Failed to load xml data from file."
Exit Sub
End If

Call xml_file_issued_niveau2("Issued")
End If
Next


On Error GoTo 0


err1:
MsgBox err.Number, err.Description
End

End Sub
----------------------------------------------
Sub xml_file_issued_niveau2(ws_node_name1)

Dim oNodes2 As IXMLDOMNodeList
Set oNodes2 = oXMLDom.selectNodes("//" & ws_node_name1 & "[1]/*")

For i2 = 0 To oNodes2.length - 1
Set oNode2 = oNodes2.nextNode
If Not (oNode2 Is Nothing) Then
sName = oNode2.nodeName
sData = oNode2.xml
Call xml_file_issued_niveau3(oNode2.nodeName)
End If
Next

End Sub
-------------------------------------------
Sub xml_file_issued_niveau3(ws_node_name2)

' Query a node-set (niveau 3).



Dim oNodes3 As IXMLDOMNodeList
Set oNodes3 = oXMLDom.selectNodes("//" & ws_node_name2 & "[1]/*")

For i3 = 0 To oNodes3.length - 1
Set oNode3 = oNodes3.nextNode
If Not (oNode3 Is Nothing) Then
sName = oNode3.nodeName
Select Case sName
Case "SerialNumber"
garder_serial_number = oNode3.Text
Case "BusinessUnit"
Call xml_file_issued_niveau4(oNode3.nodeName)
End Select
End If
Next

End Sub
------------------------------------------------
Sub xml_file_issued_niveau4(ws_node_name3)

' Query a node-set (niveau 4).

Dim oNodes4 As IXMLDOMNodeList
'Set oNodes3 = oXMLDom.selectNodes("//BusinessUnit[1]/*")
Set oNodes4 = oXMLDom.selectNodes("//" & ws_node_name3 & "[1]/*")

For i4 = 0 To oNodes4.length - 1
Set oNode4 = oNodes4.nextNode
If Not (oNode4 Is Nothing) Then
sName = oNode4.nodeName
sData = oNode4.xml
End If
Next


End Sub

====================

Alguien podria ayudarme ?
Gracias.