例: IsList function

Dim myList List
Print IsList(myList)     ' Output:  True

Dim v As Variant
Print IsList(v)          ' Output:  False
v = myList
Print IsList(v)          ' Output:  True