vbscript: Implemented IsDate