メッセージBOXを出す

'メッセージBOXを表示

MsgBox"メッセージ"

'タイトル付きのメッセージBOXを表示

MsgBox"メッセージ",0,"タイトル"

'タイトル付き、再試行、キャンセルの選択肢付きのメッセージBOXを表示

ans = MsgBox"メッセージ",5,"タイトル"

'タイトル付き、はい、いいえの選択肢付きのメッセージBOXを表示

ans = MsgBox"メッセージ",4,"タイトル"

'タイトル付き、はい、いいえ、キャンセルの選択肢付きのメッセージBOXを表示

ans = MsgBox"メッセージ",3,"タイトル"

'タイトル付き、中止、再試行、無視の選択肢付きのメッセージBOXを表示

ans = MsgBox"メッセージ",2,"タイトル"

'タイトル付き、OK、キャンセルの選択肢付きのメッセージBOXを表示

ans = MsgBox"メッセージ",1,"タイトル"

'タイトル付き、OKのみ　選択肢付きのメッセージBOXを表示

ans = MsgBox"メッセージ",0,"タイトル"