VBA/Excel/Access/Word/Data Type/varType

Check the variable type

 
Sub varTypeTest()
    Dim Age As Integer
    Dim birthdate As Date
    Dim firstName As String
    MsgBox varType(Age)
    MsgBox varType(birthdate)
    MsgBox varType(firstName)
End Sub

Check the variable type: integer and integer array

 
Sub ArrayTest3()
    Dim intNum1 As Integer
    Dim intNum(1 To 10) As Integer
    Debug.Print "Array: " & (VarType(intNum1) > vbArray),
    Debug.Print "Type: " & (VarType(intNum1) And Not vbArray)
    Debug.Print "Array: " & (VarType(intNum) > vbArray),
    Debug.Print "Type: " & (VarType(intNum) And Not vbArray)
End Sub

The variable type of an array and an integer

 
Sub ArrayTest2()
    Dim intNum1 As Integer
    Dim intNum(1 To 10) As Integer
    Debug.Print "intnum1: " & VarType(intNum1)
    Debug.Print "intnum: " & VarType(intNum)
End Sub

Values returned by the VarType function

 
 
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         Data access object
vbDecimal          14         Decimal value
vbByte             17         Byte value
vbUserDefinedType  36         Variants that contain user-defined types
vbArray           8192        Array