lo contrario de isnumeric() ¿isstring?

[jotamarios]

Pues yo te aconsejo que uses una validacion con expresiones regulares, yo hice esto, mira si te sirve:

Dim objRegExp
Set objRegExp = CreateObject("VBScript.RegExp")

Dim reg
Function IsType(ByVal dato, ByVal tipo)

If tipo="entero" Then
reg="^[0-9]*$"
ElseIf tipo="cadenaSinEspacios" Then
reg="^[a-zA-Z]*$"
ElseIf tipo="cadenaConEspacios" Then
reg="^[a-zA-Z\s]*$"
ElseIf tipo="fecha" Then
reg="^([0][1-9]|[12][0-9]|3[01])(/|-)(0[1-9]|1[012])\2(\d{4})$"
ElseIf tipo="decimal" Then
reg="^\d+\.?\d+$"
ElseIf tipo="email" Then
reg="^[\w-\.]{3,}@([\w-]{2,}\.)*([\w-]{2,}\.)[\w-]{2,4}$"
End If

objRegExp.Pattern=reg

IsType=objRegExp.Test(dato)

End Function