If MsgBox("Klik op Ja of Nee", vbYesNo+vbInformation) = vbYes Then
    MsgBox "Je hebt op Ja geklikt"
Else
    MsgBox "Je hebt op Nee geklikt"
End If

Select Case MsgBox("Klik op Ja, Nee of Annuleren", vbYesNoCancel+vbCritical)
Case vbYes
	MsgBox("Je hebt op JA geklikt")
Case vbNo
	MsgBox("Je hebt op NEE geklikt")
Case vbCancel
	MsgBox("Je hebt op ANNULEREN geklikt")
Case Else
	Msgbox("Op wat heb je nu eigenlijk geklikt?")
End Select