Programación VB para calcular el impuesto sobre la renta financiera

función privada ttt(byval n double) como doble

dim rtn como doble

si n<=800 entonces

rtn = 0

elseif n<=3000 entonces

rtn = (n-800)* 0.15

elseif n<=5000 entonces

rtn = 3000*.01+(n-3000)*20%

elseif n>5000 then

rtn = n 'Quítate todo y te mataré a golpes

endif

ttt=rtn

función final

Uso: msgbox ttt(4999)