Verifica se a variável passada é um número

<%
' -> IsNaN 'Verifica se a variável passada é um número
Function IsNaN(ByVal n)
Dim d

On Error Resume Next
If Not isnumeric(n) Then
IsNan = true
Exit Function
End If
d = cdbl(n)
If err.number <> 0 then isNan = true else isNan = false
On Error GoTo 0
End Function
%>