Auto Calc: Saler + IEP + INDIC 2008 VBA

Function Indic(Categori As Integer)

Dim val As Integer
    If Categori >= 11 And Categori <= 17 Then
        val = 18
    ElseIf Categori >= 9 And Categori <= 10 Then
        val = 10
    ElseIf Categori >= 7 And Categori <= 8 Then
        val = 4
Else
    val = 0
End If
Indic = val + (Categori - 1) * 19 + 200 + (Categori - 2) * (Categori - 1)
End Function

Function IepIndic(Categori As Integer, Echlon As Integer)
    IepIndic = WorksheetFunction.RoundUp(Indic(Categori) * 0.05 * Echlon, 0)
    If Categori = 8 And Echlon = 12 Then
        IepIndic = IepIndic - 3
    End If
End Function

Function saler(Categori As Integer) As Currency
    saler = Indic(Categori) * 45
End Function

Function iep(Categori As Integer, Echlon As Integer) As Currency
    iep = IepIndic(Categori, Echlon) * 45
End Function