Dim ret Do ret = InputBox("入力してください。") If IsEmpty(ret) Then 'Push Cancel button Exit Do End If MsgBox(ret) Loop