A los que necesiten una buena rutina de redondeos les paso esta. Devuelve un
numero con la cantidad de decimales que el usuario desee

Public Function Round(dblnToR As Double, Optional intCntDec As Integer = 2)
As Double
Dim dblPot As Double
Dim dblF As Double

    If dblnToR < 0 Then dblF = -0.5 Else dblF = 0.5
    dblPot = 10 ^ intCntDec
    Round = Fix(dblnToR * dblPot * (1 + 1E-16) + dblF) / dblPot
End Function

Saludos!!!!!!!!!

       Mario Meríngolo
         Unitech S.A.
 OF.: mariom@unitech.com.ar
 Per: pira@argentinamail.com
HP: http://www.geocities.com/SiliconValley/Lakes/8680
 IRC: NewNet - Pira
 ICQ: 5374929