Visual Basic - error en calculo inverso

He realizado un programa que calcula el 1 por mil de una cantidad y le suma un pequeño gasto y lo almacena en un texbox. por ejemplo
TextBox3 = Val(TextBox1) * 0.001 + 0.25 + TextBox1

Despues trato de hacer la operacion inversa le doy formato de dos decimales , funciona bien para importe pequeños pero a partir de importes grandes da un pequeño error.
TextBox2 = Format((((TextBox3) - 0.25) * 0.999), "#,##0.00")

POr ejemplo para 60.000 euros la primera operación da el siguiente resultado 60.060,25

por tanto al hacer la operacion inversa tendría que dar 60.000

pero me da 59.999,94

como puedo hacer para que me de correcto

es fácil, cuando pases el resultado al textbox1, pasalo con el mismo formato que usas para el textbox 2, y si de plano no funciona eso, entonces separa enteros de decimales y luego juntalos

Usa siempre variable de doble precisión para cada cálculo.