VarType Function

Syntax              VarType(var)

Group                Variable Info

Description       Return a number indicating the type of value stored in var.

vbEmpty              0 Variant variable is Empty. It has never been assigned a value. 

vbNull                  1 Variant variable is null.

vbInteger            2 Variable contains an Integer value. The value depends on the #Language setting.

vbLong                3 Variable contains a Long value. The value depends on the #Language setting.

vbSingle              4 Variable contains a Single value.

vbDouble             5 Variable contains a Double value.

vbCurrency          6 Variable contains a Currency value.

vbDate                7 Variable contains a Date value.

vbString              8 Variable contains a String value.

vbObject              9 Variable contains an Object reference. If the object reference supports a default property the VarType of the default property's value is returned instead of vbObject.

vbError                10 Variable contains a error code value.

vbBoolean           11 Variable contains a Boolean value.

vbVariant             12 Variable contains a variant value. (Only used for arrays of variants.)

vbDataObject      13 Variable contains a non-ActiveX Automation object reference.

vbDecimal           14 Variable contains a Decimal value.

vbSByte               16 Variable contains a SByte value.

vbByte                 17 Variable contains a Byte value.

vbUInteger          18 Variable contains a UInteger value. The value depends on the #Language setting.

vbULong              19 Variable contains a ULong value. The value depends on the #Language setting.

vbHuge_              20 Variable contains a Huge_ value.

vbUHuge_           21 Variable contains a UHuge_ value.

vbUserDefinedType 36 Variable contains a User Defined Type value.

See Also            TypeName.

Example            '#Language "WWB-COM"
Sub Main
    Dim X As Variant
    Debug.Print VarType(X) ' 0
    X = 1
    Debug.Print VarType(X) ' 2
    X = 100000
    Debug.Print VarType(X) ' 3
    X = 1.1
    Debug.Print VarType(X) ' 5
    X = "A"
    Debug.Print VarType(X) ' 8
    Set X = CreateObject("Word.Basic")
    Debug.Print VarType(X) ' 9
    X = Array(0,1,2)
    Debug.Print VarType(X) ' 8204 (8192+12)
End Sub