Option Explicit

Sub konstanten3()
'Beispielprogramm fuer konstanten
'Dateiname: konstanten3
    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 = gewinnspanne * einkaufspreis
    
    'Berechnung fuer Deutschland
    bruttoVerkaufspreis = mehrwertsteuersatz * nettoVerkaufspreis
    MsgBox ("Netto-Verkaufspreis: " & nettoVerkaufspreis & Chr$(13) & _
    "Brutto-Verkaufspreis: " & bruttoVerkaufspreis & Chr$(13))

    'Berechnung fuer Daenemark
    mehrwertsteuersatz = 1.25 'geraten
    bruttoVerkaufspreis = mehrwertsteuersatz * nettoVerkaufspreis
    MsgBox ("Netto-Verkaufspreis: " & nettoVerkaufspreis & Chr$(13) & _
    "Brutto-Verkaufspreis: " & bruttoVerkaufspreis & Chr$(13))
End Sub