---

Function provisionIfElseIfKonstante(geplanterUmsatz As Double, _
                                    verkaufsbetrag As Double) As Double
    Dim provisionInProzent As Double
    Const umsatzGrenze3 As Double = 1000000
    Const umsatzGrenze2 As Double = 500000
    Const umsatzGrenze1 As Double = 100000
    Const provisionUmsatzGrenze3 As Double = 0.2
    Const provisionUmsatzGrenze2 As Double = 0.1
    Const provisionUmsatzGrenze1 As Double = 0.05
    Const provisionSonst As Double = 0

    If geplanterUmsatz >= umsatzGrenze3 Then
        provisionInProzent = provisionUmsatzGrenze3
    ElseIf geplanterUmsatz >= umsatzGrenze2 Then
        provisionInProzent = provisionUmsatzGrenze2
    ElseIf geplanterUmsatz >= umsatzGrenze1 Then
        provisionInProzent = provisionUmsatzGrenze1
    Else
        provisionInProzent = provisionSonst
    End If
    provisionIfElseIfKonstante = verkaufsbetrag * provisionInProzent
End Function

---