komplexe If Then Else Anweisung

Public Function DoWork() As Object   ' Anzahl Eingangsparameter prüfen   If InValues.Length <> 2 Then     Throw New Exception("2 Eingangsparameter erwartet")   End If Dim preis as Decimal Dim anzahl as Decimal   ' Eingangsparameter zuweisen   preis = InValues(0).GetDecimal()   anzahl = InValues(1).GetDecimal()   ' Bedingungen und Berechnung durchführen   If anzahl < 3 And preis > 20 Then     DoWork = preis * 3.8   Else If anzahl < 5 And anzahl >=3 And preis > 20     DoWork = preis * 2.8   Else If anzahl < 10 And anzahl >=5 And preis > 20     DoWork = preis * 1.8   Else     DoWork = preis   End If End Function