
Sub Sample()
Dim a As Integer, b As Variant, c As Object
MsgBox IsObject(a) 'Falseを返します
MsgBox IsObject(b) 'Falseを返します
Set b = Nothing
MsgBox IsObject(b) 'Trueを返します
MsgBox IsObject(c) 'Trueを返します
End Sub