Wie kann ich ein Zusatz einfügen, dass wenn der ausgegebene Betrag nicht richtig ist, dass er den Code stoppen kann ohne das der Code weiter berechnet?
Sub test()
Dim a As Integer
a = 10
Select Case MsgBox("Der Wert ist " & CStr(a) & Chr(10) & "Fortsetzen?", vbYesNo)
Case vbYes
MsgBox "Jetzt würde es weitergehen..."
Case vbNo
MsgBox "Jetzt würde es nicht weitergehen..."
End Select
End Sub