函数在Sub例程中未完全执行

Sub ExampleSub()
    On Error Resume Next ' 开启错误处理
    ' 假设这里有一些代码
    Dim result
    result = 10 / 0 ' 这将引发除以零错误
    On Error GoTo 0 ' 关闭错误处理
    ' 更多的代码...
End Sub

Sub Main()
    Dim success
    On Error Resume Next
    Call ExampleSub
    If Err.Number <> 0 Then
        WScript.Echo "发生错误: " & Err.Description
        success = False
    Else
        success = True
    End If
    On Error GoTo 0
    If success Then
        WScript.Echo "Sub例程执行成功"
    Else
        WScript.Echo "Sub例程执行失败"
    End If
End Sub