Sub ボタン1_Click()
　
Dim Result as Long
Result = MsgBox("にゃーん",vbYesNo + vbquestion)
　
If result = vbyes then
Msgbox("ねこですよろしくおねがいします")
Else
MsgBox("ネコと和解せよ")
　
End if
　
End sub