Вопрос по VBA. Неправильно вычисляется ответ, когда введенное число нецелое. Как можно исправить?

On Error Resume Next
Dim c,a,l,k
k = InputBox("Выберите машину: "&vbcrlf&"1. Heildelberg"&vbcrlf&"2. Shinohara"&vbcrlf&"")
if k = 1 then
call s
elseif k = 2 then
call v
end if

Function s()
c = InputBox ("Размер выданный Indicats","Калькулятор")
a = InputBox ("Расстояние на подрез","Калькулятор")
l = cint(c) * 2 - 58.5 - cint(a) - 3
MsgBox l, 64, "Ответ"
end function

Function v()
c = InputBox ("Размер выданный Indicats","Калькулятор")
a = InputBox ("Расстояние на подрез","Калькулятор")
l = cint(c) * 2 - 33 - cint(a) - 5
MsgBox l, 64, "Ответ"
end function