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

Private Sub Command1_Click()
    On Error Resume Next
    Debug.Print 1 / 0
    
    On Error GoTo hErr
    Debug.Print 2 / 0

    Exit Sub
hErr:
    Debug.Print "Error!!!"
End Sub

运行结果：

Error!!!

证明可以。