function RoundNumber(NumberToRound as Double, Places as integer) as Double<br>
dim Mask as string<br>
Mask = "000000000000000000."<br>
Mask = Mask & Left(Mask, 1, Places)<br>
RoundNumber = cdbl(Val(Format(NumberToRound,Mask)))<br>
exit function