Returns an Integer that indicates the subtype of a variable.
Syntax
VarType(varname)
The required varname argument is a Variant that contains any variable except a user-defined type.
Return values
| Constant | Value | Description |
|---|---|---|
vbEmpty |
0 | Empty (uninitialized) |
vbNull |
1 | Null (no valid data) |
vbInteger |
2 | Integer |
vbLong |
3 | Long integer |
vbSingle |
4 | Single-precision floating-point number |
vbDouble |
5 | Double-precision floating-point number |
vbCurrency |
6 | Currency value |
vbDate |
7 | Date value |
vbString |
8 | String |
vbObject |
9 | Object |
vbError |
10 | Error value |
vbBoolean |
11 | Boolean value |
vbVariant |
12 | Variant (used only with arrays of variants) |
vbDataObject |
13 | A data access object |
vbDecimal |
14 | Decimal value |
vbByte |
17 | Byte value |
vbUserDefinedType |
36 | Variants that contain user-defined types |
vbArray |
8192 | Array |
Note
These constants are defined by Visual Basic for Applications (VBA). You can use the names anywhere in your code instead of the actual values.
Remarks
The VarType function never returns the value for vbArray by itself. It always adds that value to another value to indicate an array of a particular type.
The vbVariant constant is returned only with vbArray to indicate that the argument to VarType is an array of Variant values. For example, the value returned for an array of integers is vbInteger + vbArray, or 8194.
If an object has a default property, VarType(object) returns the type of the object's default property.
Example
Note
Examples that follow demonstrate the use of this function in a Visual Basic for Applications (VBA) module. For more information about working with VBA, select Developer Reference in the drop-down list next to Search and enter one or more terms in the search box.
This example uses the VarType function to determine the subtype of a variable.
Dim IntVar, StrVar, DateVar, MyCheck
' Initialize variables.
IntVar = 459
StrVar = "Hello World"
DateVar = #2/12/69#
MyCheck = VarType(IntVar) ' Returns 2.
MyCheck = VarType(DateVar) ' Returns 7.
MyCheck = VarType(StrVar) ' Returns 8.