Function is_Date(datestr)
   is_Date= IsDate(datestr)
End Function