Vagy, ha több lehetőség van:

Dim a As Long
a = MsgBox("Kérdés", vbYesNoCancel)
Select Case a
Case vbYes
...
Case vbNo
...
Case Else
...
End Select