Prime Zone - VBA

' Fonction ICR By Boussaid Mustafa
' APC SALI 2015
Function icr(cateegori As String)
Dim point As Double
point = 0.35
Select Case cateegori
    Case "01/1": icr = 1500 * point
    Case "01/2": icr = 1520 * point
    Case "01/3": icr = 1540 * point
    Case "02/1": icr = 1560 * point
    Case "02/2": icr = 1580 * point
    Case "02/3": icr = 1600 * point
    Case "03/1": icr = 1620 * point
    Case "03/2": icr = 1640 * point
    Case "03/3": icr = 1660 * point
    Case "04/1": icr = 1680 * point
    Case "04/2": icr = 1700 * point
    Case "04/3": icr = 1745 * point
    Case "05/1": icr = 1790 * point
    Case "05/2": icr = 1850 * point
    Case "05/3": icr = 1910 * point
    Case "06/1": icr = 1970 * point
    Case "06/2": icr = 2040 * point
    Case "06/3": icr = 2100 * point
    Case "07/1": icr = 2170 * point
    Case "07/2": icr = 2240 * point
    Case "07/3": icr = 2300 * point
    Case "08/1": icr = 2380 * point
    Case "08/2": icr = 2460 * point
    Case "08/3": icr = 2530 * point
    Case "09/1": icr = 2610 * point
    Case "09/2": icr = 2700 * point
    Case "09/3": icr = 2780 * point
    Case "10/1": icr = 2850 * point
    Case "10/2": icr = 2920 * point
    Case "10/3": icr = 2990 * point
    Case "10/4": icr = 3060 * point
    Case "11/1": icr = 3070 * point
    Case "11/2": icr = 3130 * point
    Case "11/3": icr = 3190 * point
    Case "11/4": icr = 3250 * point
    Case "12/1": icr = 3320 * point
    Case "12/2": icr = 3380 * point
    Case "12/3": icr = 3450 * point
    Case "12/4": icr = 3530 * point
    Case "13/1": icr = 3540 * point
    Case "13/2": icr = 3640 * point
    Case "13/3": icr = 3730 * point
    Case "13/4": icr = 3830 * point
    Case "14/1": icr = 3920 * point
    Case "14/2": icr = 4000 * point
    Case "14/3": icr = 4080 * point
    Case "14/4": icr = 4160 * point
    Case "14/5": icr = 4240 * point
    Case "15/1": icr = 4340 * point
    Case "15/2": icr = 4430 * point
    Case "15/3": icr = 4520 * point
    Case "15/4": icr = 4620 * point
    Case "15/5": icr = 4720 * point
    Case "16/1": icr = 4820 * point
    Case "16/2": icr = 4920 * point
    Case "16/3": icr = 5020 * point
    Case "16/4": icr = 5120 * point
    Case "16/5": icr = 5220 * point
    Case "17/1": icr = 5340 * point
    Case "17/2": icr = 5450 * point
    Case "17/3": icr = 5560 * point
    Case "17/4": icr = 5690 * point
    Case "17/5": icr = 5810 * point
    Case "18/1": icr = 5930 * point
    Case "18/2": icr = 6060 * point
    Case "18/3": icr = 6190 * point
    Case "18/4": icr = 6320 * point
    Case "18/5": icr = 6450 * point
    Case "19/1": icr = 6580 * point
    Case "19/2": icr = 6720 * point
    Case "19/3": icr = 6860 * point
    Case "19/4": icr = 7000 * point
    Case "19/5": icr = 7140 * point
    Case "20/1": icr = 7300 * point
    Case "20/2": icr = 7460 * point
    Case "20/3": icr = 7620 * point
    Case "20/4": icr = 7780 * point
    Case "20/5": icr = 7940 * point
    Case Else
                icr = 0
End Select
End Function