Probe con TypeOf, pero no va.
Si alguien sabe una forma nativa, por favor coméntelo.
Public Function TypeVar(intType As Integer) As String
'' Función que devuelve el tipo de variable como una palabra.
'' Como parametro de entrada requiere un numero entero.
Dim strType As String
Select intType
Case 0
strType = "NULL"
Case 1
strType = "Boolean"
Case 2
strType = "Byte"
Case 3
strType = "Short"
Case 4
strType = "Integer"
Case 5
strType = "Long"
Case 6
strType = "Single"
Case 7
strType = "Float"
Case 8
strType = "Date"
Case 9
strType = "String"
Case 10
strType = "Variant"
Case 11
strType = "Object"
Case 12
strType = "Pointer"
Case 13
strType = "Function"
Case 14
strType = "Class"
End Select
Return strType
End
'' Función que devuelve el tipo de variable como una palabra.
'' Como parametro de entrada requiere un numero entero.
Dim strType As String
Select intType
Case 0
strType = "NULL"
Case 1
strType = "Boolean"
Case 2
strType = "Byte"
Case 3
strType = "Short"
Case 4
strType = "Integer"
Case 5
strType = "Long"
Case 6
strType = "Single"
Case 7
strType = "Float"
Case 8
strType = "Date"
Case 9
strType = "String"
Case 10
strType = "Variant"
Case 11
strType = "Object"
Case 12
strType = "Pointer"
Case 13
strType = "Function"
Case 14
strType = "Class"
End Select
Return strType
End
Espero que sea de utilidad
Saludos.