Dim i As Integer = MsgBox("Do you want to Save?", vbQuestion+vbYesNoCancel, "Do you want to Save?")
If i = 2 Then
Stop
Elseif i=6 Then
*Private Coding*
Elseif i = 7 Then
End
End If

Dim Msgbox1 As DialogResult = MsgBox("AHAHAHA", MsgBoxStyle.YesNoCancel Or MsgBoxStyle.Question, "AHAHA")
If Msgbox1 = Windows.Forms.DialogResult.Yes Then
MsgBox("You Pressed YES")
ElseIf Msgbox1 = Windows.Forms.DialogResult.No Then
MsgBox("You Pressed NO")
ElseIf Msgbox1 = Windows.Forms.DialogResult.Cancel Then
MsgBox("You Pressed CAncel")
End If