THEMA:

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