type name [VBA]

option explicit

public sub type_name()
 
   dim v1 as variant
   dim v2 as variant
   dim v3 as variant

   v1 = 4.2
   v2 = 42
   v3 = "42"

   msgBox(typeName(v1)) ' Double
   msgBox(typeName(v2)) ' Integer
   msgBox(typeName(v3)) ' String

end sub