MwSt-Ermittlung

Sub MwStErmittlung()
BetragEingabe:
Betrag = InputBox(Prompt:="Bitte Betrag eingeben: 0,00" _
+ Chr(13) + "      (mit Dezimalkomma)" _
+ Chr(13) + Chr(13) + "Ergebnis  =  19 % MwSt" + Chr(13) + "auf eingegebenen Betrag", _
Title:="  MwSt - Ermittlung", Default:="100,00")
If Betrag = "" Then
'Beep
GoTo Teil2
Else
GoTo Teil1
End If
Teil1:
If MwSt = 7 Then MwSt = Betrag * 7 / 100 _
Else MwSt = Betrag * 19 / 100
Beep
u_return = MsgBox(Prompt:="Eingabe-Betrag:  " + Format(Betrag, "#,##0.00  €") + _
Chr(13) + Chr(13) + "Ergibt MwSt:         " + Format(MwSt, "#,##0.00  €"), _
Buttons:="65", Title:="  Ergebnis:")
If u_return = 1 Then GoTo BetragEingabe
Teil2:
End Sub