如何在VB6中处理错误处理程序中的错误？

Private Sub DoSomething

  On Error Goto err1

  Call ProcessLargeBatch1
  Call ProcessLargeBatch2
  '... more ...'

  Exit Sub

err1:
  Call Cleanup 'Specific for DoSomething'
  Call HandleError 'General error handling: Logging, message box, ...'

End Sub

清理过程有时会还原操作,回滚事务,删除临时文件等.在大多数情况下,此操作也可能失败.

在这种情况下我该怎么办？我将在错误处理程序中添加一个On Error Resume Next但删除现有的Err对象.向Cleanup添加错误处理程序具有相同的问题.

确保原始错误仍然得到处理/记录的最佳方法是什么？

编辑：另一个问题是我还想通知用户错误.有时重要的是,清理很快发生,我不希望消息框长时间阻止应用程序,并在用户确认错误后进行清理.

更改通知用户使用已缓存的值的方式,而不是使用Err对象本身.