備忘録：Err.Raiseの動作検証

#作成理由
エラー番号毎の出力メッセージが知りたかった。

#コード

Sub ErrorRaisetest()
    On Error GoTo Err
    
    'エラーを発生させる
    '”アプリケーション定義またはオブジェクト定義のエラーです。”のエラーが発生する
    Err.Raise 1
    
    '"プロシージャの呼び出し、または引数が不正です。"のエラーが発生する
    Err.Raise 0
    
    '"プロシージャの呼び出し、または引数が不正です。"のエラーが発生する
    Err.Raise 5
        
    Exit Sub

'エラー処理
Err:
    Debug.Print Err.Number & vbCrLf & Err.Description
    Resume Next

End Sub

#参考文献
Raise メソッド - MSDN - Microsoft