Использование MsgBox с кнопками "Да" и "Нет"

ElseIf MsgBox("Вы действительно хотите выйти не сохранив результаты?", MsgBoxStyle.YesNoCancel)= Then

        Dim dr As DialogResult = MsgBox("Вопрос", _
                                        MsgBoxStyle.YesNoCancel Or MsgBoxStyle.Question, _
                                        "Заголовок")
 
        Select Case dr
            Case DialogResult.Yes
 
            Case DialogResult.No
 
            Case DialogResult.Cancel
 
        End Select

DialogResult = vbOK
        Me.Close()

Dim mess = MsgBox("Текст", 32 + 4, "Заголовок") 'значения цифр прилагаю
If mess = DialogResult.Yes then
  'code
Else
  'code
End if

Public Class Form1
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim MyMsg As New MyMsgBox
        With MyMsg
            .FormBorderStyle = Windows.Forms.FormBorderStyle.FixedSingle
            .MaximizeBox = False
            .MinimizeBox = False
            .Button1.Text = "Yes"
            .Button2.Text = "No"
            .Button3.Text = "Save"
        End With
        MyMsg.ShowDialog()
        If MyMsg.Click_Data = 1 Then
            'Вариант 1
            MsgBox("Вариант действий 1")
        ElseIf MyMsg.Click_Data = 2 Then
            'Вариант 2
            MsgBox("Вариант действий 2")
        Else
            'Вариант 3
            MsgBox("Вариант действий 3")
        End If
    End Sub
End Class

Public Class MyMsgBox
    Private MsgRes As String = Nothing
    Private Sub All_Click(sender As Object, e As System.EventArgs) Handles Button1.Click,
                                                                           Button2.Click, Button3.Click
        MsgRes = CType(sender, Button).Name
        Me.Close()
    End Sub
    Public ReadOnly Property Click_Data() As Integer
        Get
            If MsgRes = "Button1" Then
                Return 1
            ElseIf MsgRes = "Button2" Then
                Return 2
            Else
                Return 3
            End If
        End Get
    End Property
End Class

 If l > 0 Then
            End
        Else
            Dim MessageB As DialogResult = MessageBox.Show("Вы действительно хотите выйти не сохранив результаты?", "Выход", MessageBoxButtons.YesNoCancel)
            If MessageB = DialogResult.Yes Then End
            If MessageB = DialogResult.No Then
                l = l + 1
                Dim result As StreamWriter
                Dim save As New System.IO.StreamWriter("D:\1.txt", True)
                save.Write(imya)
                save.Write(" ")
                save.Write(cash & vbCrLf)
                save.Close()
                End
            End If
            If MessageB = DialogResult.Cancel Then Exit Sub
        End If