' 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).GuidEnd Function