Visual Basic - decimales

Tengo un Problemón que me está volviendo loco, lo explico:
La configuracion Regional, está como . para los miles y , para los decimales
Ahora bien introduzco en text1.text 4808,10 y con el lost focus quiero que salga 4.808,10, igual en el text2.text para luego suma val(text1.text)+val(text2.text), pero usando la opcion format(text1.text,"#0,00") me sale 480,810
En resumidas cuentas es para tratar con cantidades expresadas al €, a por cierto y lo del redondeo tampoco me sale

Gracias de antemano a todo aquel/la que me pueda ayudar

El formato sería "#,##0.#0"

En primer lugar puedes usar el control siltextbox que puedes encontrar en www.vbasicfacil.com para capturar el numero con los decimales y ya te lo saca formateado. En segundo lugar, no lo he probador pero al sumar dos numeros formateados no te da un error?, tendrias que quitarles la mascara para sumarlos.

x=val("4.808,10")

yo creo que x no es 4808,10