---

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

---