IsObject function

Returns a Boolean value True or False indicating whether the parameter objectname is an object.

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