Pos si está raro, lo que se me ocurre es que te hagas tu propia función IsNumeric2 je je je

que corte cada uno de los elementos y utilizas la funcion IsNumeric, pero para cada caractér...funcionará?
Function IsNumeric2(item)
esnumerico = true
itera = len(IsNumeric)
For i = 1 to itera
mi_item = mid(item, i, 1)
If NOT IsNumeric(mi_item) Then
esnumerico = false
Exit For
End If
Next
IsNumeric2 = esnumerico
End Function
SiEsNumerico = IsNumeric2(Request.QueryString("valor"))
If SiEsNumerico Then
'Es numérico
Else
'no lo es
End If
Salu2,