Sub ShowOneNode( theNode ) 
    Dim atts, att, nodeinfo
    nodeinfo = theNode.NodeName

    Set atts = theNode.Attributes
    If Not ( atts Is Nothing ) Then
        For Each att In atts
            nodeinfo = nodeinfo & " [" & att.Name & "=" & att.Value & "]"
        Next
    End If
    MsgBox( "Node: " & nodeinfo )
    
    Dim kids, kid
    Set kids = theNode.ChildNodes
    If Not ( kids Is Nothing ) Then
        For Each kid In kids
            ShowOneNode( kid )
        Next
    End If
End Sub