---

Function mehrwertsteuer(nettopreis As Double) As Double
    'mehrwertsteuer ist falsch, es heisst: Umsatzsteuer ;-)
    Dim mwst As Double
    Const mehrwertsteuersatz As Double = 0.19
    mwst = mehrwertsteuersatz * nettopreis
    mehrwertsteuer = mwst
End Function

---