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

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.

vbLong

3

Variable contains a Long value.

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.

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