程序如何做出错处理？

Question

小弟现在需要对程序运行中弹出的出错提示记录下来，并让程序继续进行。
------------------------------
以前作出错记录是在一个模块里面写On Error GoTo erro
然后在ERRO：写内容
现在在一个FRM里面使用多个模块，为了记录出错情况，我是不是必须在每个模块都写 On Error GoTo erro？但ERRO：该段内容是在 LOAD里面写，还是必须在每个模块都写入？正确的方法是怎样的？万分感谢

Answer 1

Private Sub Form_Click()
  On Error GoTo erro
  Print 1 / 0
  Exit Sub
  
erro:  Call f
  
End SubPrivate Sub f()
  Print "被除数不能为0"
End Sub

Answer 2

每个模块都写 On Error GoTo erro

Answer 3

For better habit:On Error GoTo vbErrorHandler...vbErrorHandler:
MsgBox Err.Number & " " & Err.Description & " " & Err.Source & "::ctlDownloader_Initialise"