str=InputBox("値をいれてください")
if IsEmpty(str) then msgbox("キャンセルボタン") else msgbox(str)