GetObjectGUID - Retrieve the GUID of a COM object

' Return the GUID of the object specified in the first parameter

' Be sure that "TypeLib Information" type library (TlbInf32.tlb)
' is referenced in your VB project.

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