こんにちは！VBScriptの世界へようこそ。
エクセルマクロの「記録ボタン」をポチポチ押す日々から一歩進んで、「自分の手でシステムを制御したい！」と思ったあなた、素晴らしい着眼点です。
業務を自動化するスクリプトを書いていると、どうしても避けられない瞬間があります。そう、「人間（ユーザー）との対話」です。
「本当にこのデータを削除していいですか？」「処理対象のIDを入力してください」――こうした画面をピシッと出し、ユーザーの気まぐれや誤操作からシステムを守る。これができて一人前の自動化エンジニアです。
今回は、VBScriptにおけるユーザー対話の二大巨頭、`MsgBox`（メッセージボックス）と`InputBox`（インプットボックス）を極限まで安全に使いこなす設計術を、優しく、そしてプロの視点を交えて伝授します。
ここをクリアすれば、あなたの書くスクリプトの「信頼性」は劇的に跳ね上がりますよ。
—
1. なぜ「ユーザー対話」の戻り値判定が重要なのか？
自動化スクリプトの最大の敵、それは「予期せぬユーザーの行動」です。
例えば、重要なファイルを削除する処理の前に「本当に削除しますか？」と聞くのは基本中の基本。しかし、ここで「はい」が押された場合だけでなく、「いいえ」が選ばれた場合や、うっかり「×」ボタンで閉じられた場合を想定していますか？
ここをサボると、「いいえ」を選んだはずなのに処理が実行されてしまう地獄絵図が完成します。
VBScriptのダイアログが返す「返事（戻り値）」を正確にキャッチし、安全な分岐を作る鉄則を学びましょう。
—
2. MsgBoxの極意：選択肢の組み合わせと「確実な分岐」
まずは確認ダイアログの `MsgBox` です。
ただ文字を出すだけでなく、「はい／いいえ」を選ばせ、ユーザーの意思を判定します。
頻出する定数の組み合わせ
`MsgBox` は、第2引数に「どのボタンを出すか」「どのアイコンを出すか」を足し算で指定します。
- `vbYesNo` (4) ＋ `vbQuestion` (32) ＝ 「はい」「いいえ」ボタン ＋ 疑問符アイコン
- `vbCritical` (16) ＝ 危険な操作のときの警告アイコン
実践コード：誤操作を防ぐ安全な分岐設計
以下のコードをメモ帳に貼り付け、拡張子を `.vbs` にして保存して実行してみてください。（例：`test.vbs`）
Option Explicit
‘ 意図しない変数宣言を防ぐプロの作法（必ず書くこと！）
Dim intResult
‘ ダイアログを表示し、ユーザーの選択結果を変数に格納する
‘ 第1引数: メッセージ, 第2引数: ボタンの種類+アイコン, 第3引数: タイトル
intResult = MsgBox(“重要ファイルを削除します。よろしいですか？”, vbYesNo + vbExclamation, “確認ダイアログ”)
‘ 戻り値による厳密な条件分岐
If intResult = vbYes Then
‘ 「はい」が選ばれた場合のみ実行
MsgBox “ファイルを削除しました。（処理続行）”, vbInformation, “通知”
‘ ここに実際の削除処理を書く
Else
‘ 「いいえ」または右上の「×」で閉じられた場合
MsgBox “処理を中止しました。”, vbExclamation, “中断”
WScript.Quit ‘ スクリプトを安全に終了
End If
先輩からのワンポイントアドバイス：
`vbYes` は内部的には `6` という数値ですが、コードには必ず `vbYes` という定を使いましょう。コードの可読性が圧倒的に上がります。「マジックナンバー（意味不明な数字）」をコードに直書きするのはエンジニアの恥、と覚えておいてくださいね。
—
3. InputBoxの罠：文字入力と「空っぽ」「キャンセル」の判定
次は、ユーザーに文字を入力してもらう `InputBox` です。
ここで多くの初学者がハマるのが、「ユーザーが何も入力せずに『OK』を押した場合」や「『キャンセル』を押した場合」の挙動です。
- 「キャンセル」を押された ＝ 空の文字列 (`””`) が返る
- 何も入力せずに「OK」を押された ＝ これも空の文字列 (`””`) が返る
あれ？「キャンセル」と「未入力」の区別がこれだけだとつきませんよね。さらに、ユーザーが「×」を押したときも空文字が返ります。
ここを安全にさばくのが、プロのエンジニアの腕の見せ所です。
実践コード：空白・キャンセルを完全ガードする入力受付
Option Explicit
Dim strInput
‘ InputBoxで入力を促す
strInput = InputBox(“処理対象のユーザー名を入力してください:”, “入力ダイアログ”, “初期値_Guest”)
‘ 【重要】1段階目：キャンセルボタン（または×ボタン）が押されたかの判定
‘ 厳密には、InputBoxでキャンセルされると「長さ0の文字列（””）」が返りますが、
‘ 単に If strInput = “” とすると、「何も入力せずにOKを押したケース」と区別がつきません。
‘ ここでは簡易的に、空文字が返ってきた場合のガードを入れます。
If StrPtr(strInput) = 0 Then
‘ StrPtr関数は変数のポインタ（メモリ上の住所）を返します。
‘ キャンセルボタンが押された場合、InputBoxは特殊な「Uninitialized（未初期化）」状態になり、
‘ StrPtrは 0 を返します。これで「キャンセル」と「無入力でのOK」を完全に見分けられます！
MsgBox “キャンセルされました。”, vbExclamation, “終了”
WScript.Quit
End If
‘ 【重要】2段階目：値が空っぽ（未入力）でOKされた場合のチェック
‘ Trim関数で前後のスペースを取り除いてからチェックします
strInput = Trim(strInput)
If strInput = “” Then
MsgBox “文字が入力されていません。やり直してください。”, vbCritical, “エラー”
WScript.Quit
End If
‘ すべての関門を突破した安全なデータ
MsgBox “ようこそ、 ” & strInput & ” さん！”, vbInformation, “成功”
—
4. エラーを防ぐための「3つの鉄則」
最後に、今回紹介したユーザー対話処理を現場で実装する際、絶対に守ってほしい極意を3つまとめます。
1. `Option Explicit` はお守りではなく「法律」
- 変数の宣言漏れによるバグを防ぐため、VBScriptファイルの最一行には必ず `Option Explicit` を書きましょう。
2. キャンセル時の `WScript.Quit` を忘れない
- 「いいえ」や「キャンセル」が選ばれたあと、そのままコードが下の処理に流れていかないよう、しっかりと処理を止め（あるいはループさせ）てください。
3. 空白（スペース）のトリムを怠らない
- ユーザーは悪気なくスペースを含めて入力します。`Trim()` 関数を使って前後のゴミ掃除をする癖をつけましょう。
—
おわりに
お疲れ様でした！
`MsgBox` と `InputBox` は、VBScriptにおける数少ない「ユーザーとの接点」です。ここを適当に作ると、誤操作によるデータ破損など、現場で大惨事を引き起こす引き金になります。
しかし、今回学んだ「戻り値の正しい判定」と「キャンセル・未入力のガード」さえ押さえておけば、もう怖いものはありません。あなたの書くスクリプトは、人間味のある優しさと、鉄壁の安全性を手に入れました。
ここをクリアしたあなたなら、VBScriptの基本はもうバッチリです！
自信を持って、次の自動化の扉を開いていきましょう。それでは、また次の極限知見でお会いしましょう！
