Para redondear yo utilizo el
FormatNumber.
Por ejemplo:
FormatNumber(miNumero,2)
*Dónde 2 es el número de decimales que le quieras poner.
Cita: FormatNumber(value [, trailing digits] [, leading digit] [, parentheses] [, group digits])
Puedes ver más info
aquí
Saludos