---

Sub konstanten2()
    Dim netto As Double
    Dim brutto As Double
    Dim verkaufspreis As Double

    Const USt As Double = 1.19
    Const gewinnspanne As Double = 1.25

    netto = InputBox("Bitte Nettopreis eingeben")
    brutto = USt * netto
    verkaufspreis = brutto * gewinnspanne
    verkaufspreis = Round(verkaufspreis, 2)
    MsgBox "Der Verkaufspreis ist " & verkaufspreis & " Euro"

End Sub

---