VarType Function
Syntax
VarType(var)
Group
Description
Return a number indicating the type of value stored in var.
Parameter | 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. |
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 96 bit scaled real. |
vbByte | 17 | Variable contains a byte 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) ' 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