Исходный код

Option Explicit

'==============================================================================
' Получить хендл объекта и по нему снова объект
'==============================================================================

Dim hndl, obj

hndl = ThisObject.Handle
Set obj = ThisApplication.Utility.GetObjectByHandle(hndl)

' Выводим описание полученного объекта
MsgBox obj.Description
'==============================================================================