Option Explicit
Sub konstanten()
'Beispielprogramm fuer konstanten
'Dateiname: konstanten
Dim einkaufspreis As Double
Dim nettoVerkaufspreis As Double
Dim bruttoVerkaufspreis As Double
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