'The following design should speak for itself:

Select Case VBA.MsgBox("Yes, No or Cancel?", _
    vbQuestion + vbYesNoCancel)
    Case vbYes
        'The Yes case.
    Case vbNo
        'The No case.
    Case vbCancel
        'The Cancel case.
End Select