varType [VBA]

option explicit

public sub var_type()

    dim str as variant
    dim vt  as integer ' as variantType

    str = "abc defg hi"

    vt = varType(str)

    msgBox ("str is: " & var_type_str(vt))

end sub

private function var_type_str(v as integer) as string

  select case v
    case vbArray 
      var_type_str = "vbArray"
    case vbBoolean
      var_type_str = "vbBoolean"
    case vbByte
      var_type_str = "vbByte"
'   case vbChar
'     var_type_str = "vbChar"
    case vbCurrency
      var_type_str = "vbCurrency"
    case vbDate
      var_type_str = "vbDate"
    case vbDouble
      var_type_str = "vbDouble"
    case vbInteger
      var_type_str = "vbInteger"
    case vbLong
      var_type_str = "vbLong"
    case vbNull
      var_type_str = "vbNull"
    case vbObject
      var_type_str = "vbObject"
    case vbSingle
      var_type_str = "vbSingle"
    case vbString
      var_type_str = "vbString"
    case vbUserDefinedType
      var_type_str = "vbUserDefinedType"
    case vbVariant
      var_type_str = "vbVariant"
  end select

end function