フォームにボタンを一つ貼り付けて終了するときに確認のメッセージボックスを出すようにしました。
ところがボタンでの終了のときに“はい”を選ぶと二度メッセージボックスが表示されます。どこが間違っているのでしょうか？
メニュー項目の終了からやろうとしているのですが、これも同じことになります。

Option Explicit

Private Sub Command1_Click()
　　Call Form_Unload(True)
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim RtnMsg As Integer
　　RtnMsg = MsgBox("終了しますか？", vbYesNo)
　　'はい・・・終了
　　If RtnMsg = vbYes Then
　　　　Unload Me
　　'いいえ・・・キャンセル
　　ElseIf RtnMsg = vbNo Then
　　　　Cancel = True
　　End If
End Sub