GetGuid

Function GetObjectGUID(Object As Object) As String
Dim TLI As New TLIApplication
' any error will be raised by TLI

GetObjectGUID = TLI.InterfaceInfoFromObject(Object).Guid
End Function