XML node to column

Is there a way to count how many nodes are in an XML file and send each node to a new cell in a different column? Once each of those nodes are placed into a cell, how would I turn that list of data into a named table range?

I think it's something along these lines:

Set xmlNodeList = xmlDoc.SelectNodes("/*/address")
For Each node in xmlNodeList
    ListNodes(node)
Next

Function ListNodes(n As Node)
     MsgBox n.nodeName & " " & n.NodeValue & " " n.NodeType
     If n.HasChildNodes() Then
        MsgBox n.nodeName & "has child nodes"
        For Each n2 in n.ChildNodes
           ListNodes(n2)
        Next
        MsgBox "Done listing child nodes for " & n.nodeName
     End If
End Function

Here's an example of the XML file:

HTML Code: