※String型の配列変数strErrMsg(0-3)に、エラーメッセージが
設定されているものとします

Sub ViewErrMsg(intErrNum As Integer)
　MsgBox strErrMsg(intErrNum), _
　　vbExclamation + VBOkOnly, _
　　"エラーが発生しました"
End Sub