Option Explicit

Sub konstanten2()
'Beispielprogramm fuer konstanten
'Dateiname: konstanten2
    Dim einkaufspreis As Double
    Dim nettoVerkaufspreis As Double
    Dim bruttoVerkaufspreis As Double
    Const gewinnspanne As Double = 1.16
    Const mehrwertsteuersatz As Double = 1.16
    einkaufspreis = InputBox("Bitte geben Sie den Einkaufspreis ein!")
    nettoVerkaufspreis = 1.16 * einkaufspreis
    bruttoVerkaufspreis = 1.16 * nettoVerkaufspreis
    MsgBox ("Netto-Verkaufspreis: " & nettoVerkaufspreis & Chr$(13) & _
    "Brutto-Verkaufspreis: " & bruttoVerkaufspreis & Chr$(13))
End Sub