MessageBox with YesNoCancel - No & Cancel triggers same event

Question

I have a message box with the YesNoCancel buttons...

• Pressing Yes will do some action and close the application - works fine

Answer 1

dim result as dialogresult
result = MessageBox.Show("message", "caption", MessageBoxButtons.YesNoCancel)
If result = DialogResult.Cancel Then
    MessageBox.Show("Cancel pressed")
ElseIf result = DialogResult.No Then
    MessageBox.Show("No pressed")
ElseIf result = DialogResult.Yes Then
    MessageBox.Show("Yes pressed")
End If