Example - IsObject Function

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)
    MsgBox MyCheck
End Sub