Necesito obtener los nombres de atributos distintos del XML usando VBA.

este es mi código.

 sub test() 
 Dim XMLFile As Object
Dim XMLFileName As String
Set XMLFile = CreateObject("Microsoft.XMLDOM")

XMLFileName = "C:\Users\Input.xml"
XMLFile.async = False
XMLFile.Load (XMLFileName)
XMLFile.validateOnParse = False

Dim mainnode As Object
Dim node As Object

Set mainnode = XMLFile.SelectNodes("//Elements")

For Each node In mainnode
    For Each child In node.ChildNodes
    Debug.Print child.BaseName
    Dim kiddo As Object
    For Each kiddo In child.ChildNodes
        Debug.Print kiddo.BaseName
    Next kiddo
Next child
Next node
End sub

Aquí está el XML de muestra. Necesito obtener el nombre del atributonum del XML.

<Elements>
<Details>
    <Name>ABC</Name>
    <Address>123ABC</Address>
    <College>
        <collname>safasf</collname>
         <collnumber/>
    </College>
</Details>  
<Dept num="123">
    <Deptname>IT</Deptname>
    <ID>A123</ID>
 </Dept>            
</Elements>

Resultado Esperado

 Elements
 Details
 Name 
 Address
 College
 collname
 collnumber
 Dept
 num
 Deptname
 ID

Resultado real del código anterior:

 Elements
 Details
 Name 
 Address
 College
 collname
 Dept
 Deptname
 ID

El atributo "num" y<collnumber/>a etiqueta @ no es obtenida por mi código. ¿Podría alguien decirme cómo obtener los nombres de los atributos junto con los nombres de las etiquetas de XML usando VBA