Ставка налога

Function СтавкаНалога(nalog As String, base As String, year As Integer) As Single
Dim err As Single

If LCase(base) = "осн" Then

    If LCase(nalog) = "прибыль" Then
        СтавкаНалога = 20 / 100
    ElseIf LCase(nalog) = "имущество" Then
        СтавкаНалога = 2.2 / 100
    ElseIf LCase(nalog) = "ндс" Then
        СтавкаНалога = 18 / 100
    ElseIf LCase(nalog) = "страхование" Then
        СтавкаНалога = (22 + 2.9 + 5.1 + 0) / 100
    ElseIf LCase(nalog) = "ндфл" Then
        СтавкаНалога = 13 / 100

    Else
        СтавкаНалога = 10000000
        'MsgBox "Неизвестный налог"
    End If


ElseIf LCase(base) = "усн" Then

    If LCase(nalog) = "прибыль" Then
        СтавкаНалога = 0 / 100
    ElseIf LCase(nalog) = "имущество" Then
        СтавкаНалога = 0 / 100
    ElseIf LCase(nalog) = "ндс" Then
        СтавкаНалога = 0 / 100
    ElseIf LCase(nalog) = "страхование" Then
        СтавкаНалога = (20 + 0 + 0) / 100
    ElseIf LCase(nalog) = "ндфл" Then
        СтавкаНалога = 0 / 100
    ElseIf LCase(nalog) = "доходы" Then
        СтавкаНалога = 6 / 100
    ElseIf LCase(nalog) = "доходы-расходы" Then
        СтавкаНалога = 15 / 100

    Else
        СтавкаНалога = 10000000
        'MsgBox "Неизвестный налог"
    End If


ElseIf LCase(base) = "сколково" Then

    If LCase(nalog) = "прибыль" Then
        СтавкаНалога = 0 / 100
    ElseIf LCase(nalog) = "имущество" Then
        СтавкаНалога = 0 / 100
    ElseIf LCase(nalog) = "ндс" Then
        СтавкаНалога = 0 / 100
    ElseIf LCase(nalog) = "страхование" Then
        СтавкаНалога = 14 / 100
    ElseIf LCase(nalog) = "ндфл" Then
        СтавкаНалога = 13 / 100
    Else
        СтавкаНалога = 10000000
        'MsgBox "Неизвестный налог"
    End If
Else
    СтавкаНалога = 10000000
    'MsgBox "Неизвестный тип налогообложения"
End If


End Function