Problema arrotondamento

[Federix]

Ho un problema con una funzione di arrotondamento di un numero. La funziona è la seguente:

if (intpage - CInt(intpage)) > 0 then
   intpage = CInt(intpage + 1)
else
   intpage = CInt(intpage)
end If

Se intpage è un numero tipo 0.34, 0.86, 2.34, 5.70 funziona tutto alla perfezione, se invece il numero di intpage è 0.5 la funziona mi restituisce 2 anziché 1.
Qualcuno riesce a capire come mai???

[longline]

Perchè non usi semplicemente la funzione Round()?

[Federix]

Ora ho capito l'errore, non dipendeva da Cint() o Round(), ma da una parentesi scritta male:

intpage = round(intpage+1)

doveva essere scritta correttamente così:

intpage = round(intpage)+1

Grazie lo stesso