Option Explicit
Sub konstanten4()
'Beispielprogramm fuer konstanten
'Dateiname: konstanten4
    Dim einkaufspreis As Double
    Dim nettoVerkaufspreis As Double
    Dim bruttoVerkaufspreis As Double
    Const gewinnspanne As Double = 1.16
    Dim mehrwertsteuersatz As Double
    
    einkaufspreis = InputBox("Bitte geben Sie den Einkaufspreis ein!")
    nettoVerkaufspreis = gewinnspanne * einkaufspreis
    
    'Berechnung fuer Deutschland
    mehrwertsteuersatz = 1.16
    bruttoVerkaufspreis = mehrwertsteuersatz * nettoVerkaufspreis
    MsgBox ("Netto-Verkaufspreis Deutschland: " & nettoVerkaufspreis & Chr$(13) & _
    "Brutto-Verkaufspreis: " & bruttoVerkaufspreis & Chr$(13))
    
    'Berechnung fuer Daenemark
    mehrwertsteuersatz = 1.25 'geraten
    bruttoVerkaufspreis = mehrwertsteuersatz * nettoVerkaufspreis
    MsgBox ("Netto-Verkaufspreis D\'89nemark: " & nettoVerkaufspreis & Chr$(13) & _
    "Brutto-Verkaufspreis: " & bruttoVerkaufspreis & Chr$(13))
End Sub