VarType Function
Syntax
VarType(var)
Group
Description
Return a number indicating the type of value stored in var.
|
Parameters |
Description |
|
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
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