Examples: DataType function

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)