Is There AnyWay To Catch An Error On A Form Or A Module, And Write To A Text File Each Time It Occur

Like This:
VB Code:
  1. On Error GoTo description:

  2.  
  3. description:

  4. WriteFile(Err.Description & Function/Sub Name)