Что неправильно в структуре алгоритма? впринципе все работает, но если вводишь число больше 250, то выдает ошибку?? Publi

Question

впринципе все работает, но если вводишь число больше 250, то выдает ошибку. ? 
Public Sub nalog() 
Dim a As Integer 
a = InputBox("Введите мощность вашего двигателя ( в л. с.) ") 
 
If a <= 100 Then 
c = a * 22 
ElseIf a <= 150 Then 
c = a * 35 
ElseIf a <= 200 Then 
c = a * 50 
ElseIf a <= 250 Then 
c = a * 75 
ElseIf a >= 251 Then 
c = a * 150 
End If 
MsgBox "Сумма вашего налога" = " & c" 
End Sub

Иван · Accepted Answer

Попробовать так: 
ElseIf a > 250 Then 
c = a * 150