IsNumeric Function

From Office VBScript