InputBox関数はMsgBox関数とは違ってユーザーが文字などを入力することができ、
そのデータをプログラム内で受け取ることが可能です。






　　Inputbox関数

Sub T_InputBox()
   
    Dim msg As String
   
    msg = InputBox("休日の予定は何かありますか？", "予定")
   
    If msg = "" Then
        'キャンセルボタンをクリックした場合、又は何も入力なしの場合
        MsgBox ("今週の休日の予定はありません。")
    Else
        '何か入力された場合
        MsgBox ("今週の休日の予定は" & msg & "です。")
    End If
   
End Sub

実行してみると・・・





　　Inputbox関数実行

が表示されます。

何も入力せずにOKボタンをクリックするかキャンセルボタンをクリックすると
ダイアログボックスで今週の休日の予定はありません。と表示されます。

何か入力しOKボタンをクリックすると
ダイアログボックスで今週の休日の予定は　入力した文字　です。が表示されます。

MsgBox関数やInputBox関数はユーザーからのデータを受け取る一番簡単な
方法かもしれません。