Get Variant Type Method

The Get Variant Type method returns a number that represents the type of data stored in a variant variable. For more information, see Variants.

Format

VarType(varName)

The following table describes the arguments that you can use with this method.

Argument	Description
varName	The name of a variant variable.

Example

The following example returns the variant type of the myarray variant variable:

Sub Button_Click
   Dim x
   Dim myarray(8)
   Dim retval
   Dim retstr
   myarray(1) = Null
   myarray(2) = 0
   myarray(3) = 39000
   myarray(4) = CSng(10^20)
   myarray(5) = 10^300
   myarray(6) = CCur(10.25)
   myarray(7) = Now
   myarray(8) = "Five"
   For x = 0 to 8
      retval = Vartype(myarray(x))
      Select Case retval
         Case 0
            retstr = " (Empty)"
         Case 1
            retstr = " (Null)"
         Case 2
            retstr = " (Integer)"
         Case 3
            retstr = " (Long)"
         Case 4
            retstr = " (Single)"
         Case 5
            retstr = " (Double)"
         Case 6
            retstr = " (Currency)"
         Case 7
            retstr = " (Date)"
         Case 8
            retstr = " (String)"
      End Select
      If retval = 1 then
         myarray(x) = "[null]"
      ElseIf retval = 0 then
         myarray(x) = "[empty]"
      End If
      Next x
End Sub