Visual Basic - Suma con decimales

Hola a todos, les pongo el siguiente codigo que me suman a un textbox

En el text1 al dar ENTER con Keyascci
Text4.Text = FormatNumber(Format(Text1.Text)) (LO REALIZA BIEN, SIN PROBLEMAS)

Lo mismo para el Text2
Text4.Text = FormatNumber(Val(Text1.Text) + (Format(Text12.Text)))
ACA VIENE EL PROBLEMA, ME LO SUMA BIEN PERO LOS DECIMALES DEL TEXT1 NO

Y por ultimo el text3
Text4.Text = FormatNumber(Val(Text1.Text) + (Format(Text12.Text)) + Format(Text3.Text))
EN ESTE ULTIMO ME SUMA BIEN EL TEXT2 Y EL TEXT3 CON SUS DECIMALES CORRECTAMENTE PERO EL TEXT1 ME LO SUMA SIN LOS DECIMALES.

EN CONCLUSION AL TEXT4 VAN TODOS LOS VALORES SUMADOS CORRECTAMENTE CON SUS DECIMALES CORRESPONDIENTES MENOS LOS DECIMALES DEL TEXT1.

ALGUIEN ME PUEDE DECIR DONDE TENGO EL ERROR

MUCHAS GRACIAS DE ANTEMANO

Yo te recomendaria que conviertas los datos con Ccur osea conversion a tipo de dato moneda (currency)
ej.

text4.text=ccur(trim(text1.text))+ccur(trim(text2.text))+ccur(trim(text3.text))

pruebalo y me avisas

el problema esta que en textbox4 utiliza val

Para resolver los decimales usa el comando "CDbl" en vez de usar el comando "Val" y listo... espero te sirva

Excelente, que solución tan sencilla y buena. Llevaba varios días atrancado en este tema.
Muchas gracias a panterapoz

Saludos

JOSUÉ HENAO
COLOMBIA

Excelente respuesta, muchas gracias

muy buen respuesta

Excelente amigo! respuesta sencilla y eficaz! muchas gracias!