例: IsObject function

' Define two classes, Vegetable and Fruit.
Class Vegetable
   ' ... class definition
End Class
Class Fruit
   ' ... class definition
End Class
Dim tomato As Variant, turnip As Variant
Print IsObject(tomato)          ' Output:  False
Set turnip = New Vegetable
Print IsObject(turnip)          ' Output:  True
Set tomato = New Fruit
Print IsObject(tomato)          ' Output:  True