Dim item(5) As Variant ' Declare a Variant fixed array.
Dim itemWeight As Single
Dim itemName As String
itemWeight! = 2.7182
itemName$ = "Jute twine"
item(1) = itemWeight!
item(2) = itemName$
Print DataType(item(1)) ' Prints 4
Print DataType(item(2)) ' Prints 8
Print DataType(item(3)) ' Prints 0 (initalized to EMPTY)
Dim cells As Range ' Suppose Range is a
' product-defined class.
Print DataType(cells) ' Prints 35
Set cells2 = cells
Print DataType(cells2) ' Prints 35
Dim areas(3) As Range ' An array of Range product objects
Print DataType(areas) ' Prints 8227 (8192 + 35)
Set cal = CreateObject("dispcalc.ccalc")
Print DataType(cal) ' Prints 9
Dim stats(3) As Integer ' An array of Integers
Print DataType(stats%) ' Prints 8194 (8192 + 2)
Dim misc List As Variant ' A list of Variants
Print DataType(misc) ' Prints 2060 (2048 + 12)