Example - IsObject Function

1. Sub Main

   1. 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