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

Private Sub Command1_Click()
    Dim lngA As Long
    On Error Resume Next
    
    lngA = 1 / 2
    Debug.Print Err.Number: Err.Clear
    
    lngA = 1 / 0
    Debug.Print Err.Number: Err.Clear
End Sub

运行结果：

 0 
 11

0就是没错误。