OKを押してもキャンセルを押しても、反応しない

質問

このコード、どこが間違ってるか教えてもらえますか？

Sub test()
Dim ret As Variant

ret = InputBox("タイトルを入力してください。")

If TypeName(ret) = "Boolean" Then
MsgBox "キャンセルが選択されました"
End If

End Sub

これで、キャンセルボタンを押しても、メッセージボックスが表示されません。
間違えてる部分がわかりません。

回答No.1

nicotinism · ベストアンサー

Sub test2()
Dim ret As Variant

ret = InputBox("タイトルを入力してください。")
Debug.Print TypeName(ret) '←これを追加してイミディエイトウィンドウに何が出力されるか確認！
If TypeName(ret) = "Boolean" Then
'MsgBox "キャンセルが選択されました"
End If

End Sub

こちらもご覧あれ。
http://okwave.jp/qa/q7909190.html

お礼

ありがとうございました。