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

Check the variable type

   <source lang="vb">

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

</source>
   
  

Check the variable type: integer and integer array

   <source lang="vb">

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

</source>
   
  

The variable type of an array and an integer

   <source lang="vb">

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

</source>
   
  

Values returned by the VarType function

   <source lang="vb">

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

</source>