---

Function netto_einfach(ByVal Betrag As Double) As Double
    Dim nettoWert As Double
    nettoWert = Betrag / 1.19
    netto_einfach = nettoWert
End Function

---