Obter nomes de atributo do XML usando o VBA

Eu preciso obter os nomes de atributos distintos do XML usando o VBA.

esse é o meu 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

Aqui está o XML de amostra. Preciso obter o nome do atributonum do 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 do código acima:

 Elements
 Details
 Name 
 Address
 College
 collname
 Dept
 Deptname
 ID

O atributo "num" e<collnumber/> tag não é buscada pelo meu código. Alguém poderia me informar como buscar os nomes dos atributos junto com os nomes de tags do XML usando o VBA