IsDate Function

From Office VBScript