GetNodeLevel

Function GetNodeLevel(aNode as node) as Integer
Dim level as Integer
On Error Goto ExitGetNodeLevel

Do While not aNode.parent is nothing
level = level + 1
set aNode = aNode.parent
loop
ExitGetNodeLevel:
Exit Function
End Function