新建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!!!

证明可以。

再来举个例子：

Private Sub Command1_Click()
    On Error Resume Next
    Call s_1
    Debug.Print "over"
End Sub

Private Sub s_1()
    Debug.Print 1 / 0
    Debug.Print "s_1"
End Sub

运行结果：

over

证明了：

采用On Error Resume Next 后，子程序某行出错，直接跳出子程序，而不会执行下方正常命令 Debug.Print "s_1" 。