Function  provision(umsatz  As Double )  As Double
     'Funktion berechnet Provisionen abh\'a8angig
     ' vom Umsatz
     ' Dateiname: provision
     Dim  provisionInProzent  As Double
     Const  umsatzGrenze  As Double  = 100000
     ' Provisionen in Prozent
     Const  provisionUmsatzGrenze  As Double  = 10
     ' bestimme Provision in Prozent
     If  umsatz >= umsatzGrenze  Then
            provisionInProzent = provisionUmsatzGrenze
         Else
            provisionInProzent = 0
     End If
     ' Berechne auszuzahlenden Betrag
    provision = (umsatz * provisionInProzent) / 100
End Function