¿que pasa?

Tengo un formulario con TextBox que son los siguientes:

El primero es C1 Cantidad
El segundo es PU1 Precio Unitario
El tercero es I1 Importe

(el numero 1 es porque tengo 32 partidas por factura)

Al ejecutar el formulario pasa lo siguiente:

1.- capturo la cantidad: 123 (ejemplo)
2.- capturo el importe: 123456 (ejemplo)

al momento de actualizar (AfterUpdate) el Precio Unitario y/o la Cantidad

1.- pasa la Cantidad a una celda de hoja de calculo
ThisWorkbook.Worksheets("Factura").Range("a14").Value Val(AltaFacturas.C1.Value)

2.- pasa el Precio Unitario a una celda de hoja de calculo
ThisWorkbook.Worksheets("Factura").Range("x14").Value =
Val(AltaFacturas.PU1.Value)
y toma ese valor de la celda y lo "Formatea" como numero ( 123,456.00 )
AltaFacturas.PU1.Value =
FormatNumber(ThisWorkbook.Worksheets("Factura").Range("x14").Value)

3.- actualiza el Importe ( I1) calculado la hoja
AltaFacturas.I1.Value =
FormatNumber(ThisWorkbook.Worksheets("Factura").Range("ac14").Value)

4.- actualiza los totales en formulario con una rutina llamada "Totales"

hasta aqui no hay problema, pero al hacer pruebas de funcionamiento
si se captura un importe de millares (como el ejemplo), y paso a la
partida 2 ( C2, PU2, I2 ) capturo la informacion pertinente y regreso a la
partida 1 (con el tabulador) al pasar por el cuadro de Precio Unitario (PU1)
el importe que tenia ( 123,456.00 ) lo cambia a 123.00 o a 12.00 si el valor
era 12,345.00 o a 1.00 si el valor era 1,234.00 esto sin haberlo cambiado
yo mismo para que se ejecute el evento AfterUpdate

¿como puedo arreglar esto?

NOTA: si utilizo en evento "Change" hace los calculos y cambios en totales
al momento de estar tecleando la Cantidad y/o el Precio Unitario y esto
no lo requiero.