Public Type MyType
MyVar1 As Integer
MaVar2 As Integer
End Type
'-----------------------------------------------------
Dim typo As MyType
typo.MyVar1 = 2'For VBA / VB / Visual Basic only
'EXAMPLE
VarType(VariableName)
'SYNTAX
' VarType(<variable-that-you-want-to-check-the-data-type-of>)
'NOTE: the date types are as follows:
+-------+----------------------+------------------------------------------------------------------------+
| VALUE | CONSTANT | DESCRIPTION |
+-------+----------------------+------------------------------------------------------------------------+
| 0 | vbEmpty | Empty (uninitialized) |
| 1 | vbNull | Null (no valid data) |
| 2 | vbInteger | Integer |
| 3 | vbLong | Long integer |
| 4 | vbSingle | Single-precision floating-point number |
| 5 | vbDouble | Double-precision floating-point number |
| 6 | vbCurrency | Currency value |
| 7 | vbDate | Date value |
| 8 | vbString | String |
| 9 | vbObject | Object |
| 10 | vbError | Error value |
| 11 | vbBoolean | Boolean value |
| 12 | vbVariant | Variant (used only with arrays of variants) |
| 13 | vbDataObject | A data access object |
| 14 | vbDecimal | Decimal value |
| 17 | vbByte | Byte value |
| 20 | vbLongLong | LongLong integer (valid on 64-bit platforms only) |
| 36 | vbUserDefinedType | Variants that contain user-defined types |
| 8192 | vbArray | Array (always added to another constant when returned by this function)|
+-------+----------------------+------------------------------------------------------------------------+