Antwort
Natürlich mit Zeilenumbruch:
a = MsgBox("Ja oder Nein", vbYesNo)
If a = vbYes Then
MsgBox "Befehl Ja"
Else
MsgBox "Befehl Nein"
EndIf