NET Heater - Problem mit dem Code

Public Function DoWork() As Object Dim b as Double b = InValues(0).GetDouble() Select b Case 0.01 TO 1.99 DoWork = (b * 1.36) * 5.50 Exit Select Case 2.00 TO 2.99 DoWork = (b * 1.36) * 5.40 Exit Select Case 3.00 TO 3.99 DoWork = (b * 1.36) * 4.75 Exit Select Case 4.00 TO 4.99 DoWork = (b * 1.36) * 4.75 Exit Select Case 5.00 TO 5.99 DoWork = (b * 1.36) * 4.00 Exit Select Case 6.00 TO 6.99 DoWork = (b * 1.36) * 3.75 Exit Select Case 7.00 TO 7.99 DoWork = (b * 1.36) * 3.50 Exit Select Case 8.00 TO 8.99 DoWork = (b * 1.36) * 3.20 Exit Select Case 9.00 TO 9.99 DoWork = (b * 1.36) * 3.00 Exit Select Case 10.00 TO 19.99 DoWork = (b * 1.36) * 2.80 Exit Select Case 20.00 TO 29.99 DoWork = (b * 1.36) * 1.75 Exit Select Case 30.00 TO 39.99 DoWork = (b * 1.36) * 1.75 Exit Select Case 40.00 TO 49.99 DoWork = (b * 1.36) * 1.50 Exit Select Case 50.00 TO 69.99 DoWork = (b * 1.36) * 1.50 Exit Select Case 70.00 TO 79.99 DoWork = (b * 1.36) * 1.50 Exit Select Case 80.00 TO 89.99 DoWork = (b * 1.36) * 1.48 Exit Select Case 90.00 TO 99.99 DoWork = (b * 1.36) * 1.47 Exit Select Case 100.00 TO 149.99 DoWork = (b * 1.36) * 1.46 Exit Select Case 150.00 TO 199.99 DoWork = (b * 1.36) * 1.35 Exit Select Case 200.00 TO 249.99 DoWork = (b * 1.36) * 1.44 Exit Select Case 250.00 TO 300.00 DoWork = (b * 1.36) * 1.25 Exit Select Case Else b = 100000 DoWork = b Exit Select End Select End Function

Case 10.00 TO 19.99 DoWork = (b * 1.36) * 2.80 Exit Select