Use IsNumeric, a builtin VBA function.