Sub メッセージボックス_選択型_警告形式で表示する()

    選択結果 = MsgBox("処理を開始しますか？", vbYesNo + vbCritical, "タイトルはここ")

    If 選択結果 = vbYes Then 'はいの場合
    
        'はいの場合の処理
        
    ElseIf 選択結果 = vbNo Then 'いいえの場合
    
        'いいえの場合の処理
        
    End If
    
End Sub