[On Error GoTo ステートメント]

Sub ErTest1()
On Error GoTo ErrorHndler ' エラー発生時、指定した行から実行
...............

ErrorHndler:
MsgBox"ｴﾗｰ発生のため処理を中止しました" 
End Sub

[Resumeステートメント]

Sub ErTest2()
On Error GoTo ErrorHndler ' エラー発生時、指定した行から実行

Err.Raise 71 '"ディスクが準備されていません"擬似エラーを発生
Exit Sub

ErrorHndler:
Res = MsgBox("ﾌﾛｯﾋﾟｰﾃﾞｨｽｸをｾｯﾄしてください", _
vbOKCancel, "FDｾｯﾄｴﾗｰ")
If Res = vbOK Then Resume 'OKボタンでエラー発生行に戻って実行

End Sub

[Resume Nextステートメント]

Sub ErTest3()
On Error Resume Next ' エラー発生時、次の行から実行
Err.Clear
Err.Raise 6 ' "オーバーフロー" 擬似エラーを発生

If Err.Number <> 0 Then ' エラーメッセージを表示します

MsgBox Err.Description & Chr(13) & Err.Source _
& " でｴﾗｰ発生" & Chr(13) & _
"ｴﾗｰ番号 " & Str(Err.Number)

End If
End Sub