Muchas gracias alpe2000. He probado lo que me has comentado y ha funcionado perfectamente. Te dejo cómo ha quedado:
Código:
If peso_total > 7000 then
' gramos que se pasan de 7000 (7kg)
diferencia = (peso_total - 7000) / 1000
' redondeamos hacia arriba
if (int(diferencia) - diferencia < 0) then
'Hay decimales en el valor
portes_adicionales = int(diferencia) + 1
else
'No hay decimales en el valor (es un entero)
portes_adicionales = diferencia
end if
'Los gastos de envío entonces son:
portes_total = (portes_adicionales * "0,40") + portes_fijos
end if
Un saludo.