Sub メッセージボックス_はい_いいえ_キャンセル_ボタン形式()

    選択結果 = MsgBox("はい/いいえ/キャンセル", vbYesNoCancel, "タイトルはここ")
    
    If 選択結果 = 6 Then '[はい]
    
        '[はい]の場合の処理
    
    ElseIf 選択結果 = 7 Then '[いいえ]
    
        '[いいえ]の場合の処理
    
    ElseIf 選択結果 = 2 Then '[キャンセル]
    
        '[キャンセル]の場合の処理
    
    End If
    
End Sub