come suggerisce sempre (mi sembra) maximum:

codice:
if cdbl(nuovaposizione) < cdbl(vecchiaposizione) then