Resume ステートメント

例外が発生したときの処理を定義するステートメント

Resume
→例外が発生したステートメントに戻る (リトライ)

Resume Next
→例外をクリアし、次の行へ進む

Resume xxx
→例外をクリアし、指定したステップへジャンプする
　Goto xxxとの違いは例外がクリアされるかどうか

以下、使用例

    Private Sub Sub_hoge()
        Dim FirstTime As Long
        Dim i As Long

        On Error GoTo Handler

        'ゼロ除算で例外を発生させる
        i = 10 / i



Handler:
        If FirstTime = 0 Then
            FirstTime = 1
            '例外が発生したステートメントに戻る
            Resume
        Else
            '例外をクリアして指定したところへ
            Resume Resume_hoge
        End If

Resume_hoge:
        MsgBox(Err.Description)
    End Sub

動作確認環境:Visual Stadio 2005