>> Gary you should do

Function GetHierarchy(ByVal toObject As Object)
Dim lcHierarchy As String
Dim loObject As Object
loObject = toObject
lcHierarchy = loObject.Name

Do While Not loObject.Parent is Nothing 
    loObject = loObject.Parent
    lcHierarchy = loObject.Name & "." & lcHierarchy
Loop
Return lcHierarchy
End Function

Thanks Alexandre!

I now know that IsNothing(loObject.Parent) also works!


Gary.