GoTo를 금지하면 어려움

On Error Resume Next

dim hasErr as Boolean
hasErr = False

If Not hasErr Then
    ' コーディング
end if
If Err.Number <> 0 Then
    hasErr = True
    ' 例外発生時の処理
End if
If Not hasErr Then
    ' コーディングの続き
end if
If Err.Number <> 0 Then
    hasErr = True
    ' 例外発生時の処理
End if
・
・
・

모범 사례 - VB(A) 예외 처리

Sub button_Click()
On Error GoTo Travel

    ' ここにコーディングしてください。

Eat:
    ' 後処理があればここにコーディングしてください。
    ' (例外が発生しそうな場合は、 On Error Resume Next で、例外処理を行ってください。)
    Exit Sub
Travel:
    ' 例外発生時の処理があればここにコーディングしてください。
    ' ※ Errオブジェクトはシングルトンですので、別のサブルーチンや関数を呼び出すと、
    '    その中で、Errオブジェクトの内容が変化してしまうことがあります。
    MsgBox Err.Description, vbCritical, "予期せぬエラー [" & Err.Number & "]"
    Resume Eat
End Sub

결론

Go To 캠페인