Hola amigos, tengo el problema de que sumo dos valores ($ 17.80) + ($ 35), me redondea.
Lo que tendria que mostrar es el importe de la suma $ 52.80 y me muestra $53

Que puedo ser??? Gracias amigasos

Hola forer@
pues asi sin más va a ser que no tengo ni idea pero:

1º preparaste los dos sumandos para que los reconozca como dos numeros decimales:
suma=val(replace(sumando1,",",".")) + val(replace(sumando2,",","."))

2º cuando formateas el resultado, si lo haces, asegurate que le das formato con decimales: format(suma,"0.00") o si es un reporte te deja indicar el nmero de decimales al cual se redondea.

asi sin más no se me ocurre nada si revisando esto sigue sin hacerlo bien pon el codigo donde haces la suma. Espero que te sirva de algo

Amigo, he definido de esta forma:

dim nNumerador1,nNumerador2 as double
nNumerador1 = Val(txtFields(23).Text) '1° text
nNumerador2 = Val(txtFields(9).Text) '2° text
nResultado = Val(nNumerador1) + Val(nNumerador2) 'sumar los text
nResultado = Format(Val(nNumerador) + Val(nPorcentaje), "#,##0.00") 'pasa las suma al resultado
txtFields(24).Text = nResultado

Hola forer@
En la tercera linea cuando igualas a nresultado( que por cierto no esta declarada supongo que la tendrás declarada en otro sitio como double) no hace falta hacer el val . . . ya lo has hecho en las lineas anteriores y tampoco tienes declarado el nnumerador ni el nporcentaje.

yo hice una prueba con tres textbox(text1,text2,text3) y me funciona perfectamente, echale un vistazo y adaptalo a tus necesidades:

Private Sub Command1_Click()
Dim nNumerador1, nNumerador2, nresultado As Double
nNumerador1 = Val(Text1.Text) '1° text
nNumerador2 = Val(Text2.Text) '2° text
nresultado = nNumerador1 + nNumerador2 'sumar los text
Text3.Text = Format(nresultado, "0.00") 'pasa las suma al resultado
end sub