Syntax 

VarType(var)


Group 

Variable Info 


Description 

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

 

Parameters

Description

var 

Return a number indicating the type of value stored in this variable. 


Result

Value

Description

vbEmpty 

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

vbNull 

Variant variable is null. 

vbInteger 

Variable contains an Integer value.

vbLong 

Variable contains a Long value.

vbSingle 

Variable contains a Single value. 

vbDouble 

Variable contains a Double value. 

vbCurrency 

Variable contains a Currency value. 

vbDate 

Variable contains a Date value. 

vbString 

Variable contains a String value. 

vbObject 

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.

vbULong 

19 

Variable contains a ULong value.

vbHuge_ 

20 

Variable contains a Huge_ value. 

vbUHuge_ 

21 

Variable contains a UHuge_ value. 

vbUserDefinedType 

36 

Variable contains a User Defined Type value. 

+vbArray 

8192 

Variable contains an array value. Use VarType( ) And 255 to get the type of element stored in the array. 


See Also 

TypeName


Example

Sub Main

    Dim X As Variant

    Debug.Print VarType(X) ' 0

    X = 1

    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