例: IsScalar function

Dim var As Variant
Print IsScalar(var)              ' Output:  True
var = 1
Print IsScalar(var)              ' Output:  True
var = "hello"
Print IsScalar(var)              ' Output:  True

Class SenClass
   ' ... class definition
End Class
Set var = New SenClass
Print IsScalar(var)       ' Output:  False
Dim senArray(1 To 5)
var = senArray
Print IsScalar(var)       ' Output:  False
Dim senList List
var = senList
Print IsScalar(var)       ' Output:  False