IsObject function
IsObject( objectname )
Returns a boolean value True or False indicating whether the parameter objectname is an object.
Example
Sub Main
   Dim MyInt As Integer, MyCheck
   Dim MyObject As Object
   Dim YourObject As Object
   Set MyObject = CreateObject("Word.Basic")
 
   Set YourObject = MyObject 
   MyCheck = IsObject(YourObject)
 
       Print MyCheck
End Sub