---

Function brutto(ByVal betrag As Double, ByVal satz As Integer) As Double
    If satz = 1 Then
        brutto = 1.19 * betrag
    ElseIf satz = 2 Then
        brutto = 1.07 * betrag
    Else
        brutto = betrag
    End If
End Function

---