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

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