VBS IF文

dim i 
i = inputBox("番号を入力してください")
If i = 1 then
    MsgBox "おはよう"
ElseIf i = 2 then
    MsgBox "こんにちは"
Else
    MsgBox "こんばんは"
end if

上記コードを実行した際の出力結果