---

Function provisionIfElseIf(geplanterUmsatz As Double, verkaufsbetrag As Double) As Double
    Dim provisionInProzent As Double
    If geplanterUmsatz >= 1000000 Then
        provisionInProzent = 0.2
    ElseIf geplanterUmsatz >= 500000 Then
        provisionInProzent = 0.1
    ElseIf geplanterUmsatz >= 100000 Then
        provisionInProzent = 0.05
    Else
        provisionInProzent = 0
    End If
    provisionIfElseIf = verkaufsbetrag * provisionInProzent
End Function

---