On Error Goto AAA语句，即当有错误发生的时候不提示错误，即刻执行AAA标签后的语句。
On Error Resume Next 即不提示错误，直接执行错误语句的下一句。
On Error Goto 0，停止错误处理（默认情况），当有错误时会中断程序，提示错误信息并将程序停留在错误的那一句语句。
Err.Clear即清除 Err 对象的所有属性设置。

新建From1（窗体），新建Command1（按钮CommandButton），代码：

Private Sub Command1_Click()
    'On Error GoTo 0
    'Debug.Print 0 / 0

    On Error Resume Next
    Debug.Print "1. ErrNumber=" & Err.Number
    
    Debug.Print 2 / 0
    Debug.Print "2. ErrNumber=" & Err.Number
    
    Err.Clear
    Debug.Print "3. ErrNumber=" & Err.Number
    
    Debug.Print 4 / 0
    Debug.Print "4. ErrNumber=" & Err.Number
    
    Debug.Print 5 / 0
    On Error GoTo 0
    Debug.Print "5. ErrNumber=" & Err.Number
    
    Debug.Print "over"
End Sub

运行结果：

1. ErrNumber=0
2. ErrNumber=11
3. ErrNumber=0
4. ErrNumber=11
5. ErrNumber=0
over

0就是没错误。