---

Function verkaufsPreis(einkaufspreis As Double) As Double
    Dim nettoVerkaufspreis As Double
    Dim bruttoVerkaufspreis As Double
    nettoVerkaufspreis = 1.19 * einkaufspreis
    bruttoVerkaufspreis = 1.19 * nettoVerkaufspreis
    verkaufsPreis = bruttoVerkaufspreis
End Function

---