Problema formato moneda textbox ejecución

Muéstrame el código que le pones al evento LostFocus.

Muchas gracias por contestar, experto.
Aquí el código que pongo en LostFocus:
Private Sub Text1_LostFocus ()
      Text1.Text= Format (Text1.Text,"##,#0.00")
End Sub
Es decir, ya me quedó claro, que cuando tienes otro textbox, por ejemplo el Text2, al dar la tecla "Tabulación" es cuando cambia de formato el Text1, mientras ya me dí cuenta que no lo hace.
Lo que yo estaba usando, es el evento Keypress y este es el código:
Private Sub Text1_KeyPress (Keyascii as Integer)
     Text1.Text= Format (Text1.Text,"##,#0.00")
En sub
En este código, sí me lo hace, pero no me respeta el orden, es decir, si yo escribo los números del 1 al 9, en vez de ponerlos así:
123,456,789.00
Me pone esto porque no me respeta el formato:
895,672,341.00
Yo sé que puedo hacer el formato correcto, escribiendo los datos en un textbox y presionando un botón que me daría el formato; más no es lo que estoy buscando.
Es que lo necesito para un formulario de "Venta", es decir, que el cajero (a) al estar ingresando la cantidad a cobrar, lo transforme al instante.
De nueva cuenta, muchas gracias, experto.
Saludos...

Cambia esto:
Format (Text1.Text,"##,#0.00")
Por esto:
String.Format ({0:C},Text1.Text)
Y me comentas como te fue.

Hola, experto.
He puesto lo que dices así:
Private Sub Text1_Keypress (Keyascii As Integer)
     Text1.Text= String.Format ({0:C},Text1.Text)
End Sub
Y no me funcionó, pues me marca "Error de sintaxis"
De igual manera, si lo dejo así:
Private Sub Text1_Keypress (Keyascii As Integer)
   String.Format ({0:C},Text1.Text)
End Sub
Me sigue saliendo el mismo error. De antemano, sigo agradeciendo tu ayuda.
Te comento que lo estoy haciendo en Visual Basic 6.0

Omití las comillas:
String.Format ("{0:C}",Text1.Text)

Hola de nuevo, experto.
Investigando la función que me diste, hice esto, agregado a lo que tú me recomendaste:
Private Sub Text1_Keypress (Keyascii As Integer)
Dim cadena As String
cadena= String.Format ({0:C},Text1.Text)
Text1.Text= cadena
End Sub
Y me sigue marcando error de sintaxis!!!
Lo que sigo sin entender es el ¿por qué?, ¿o tengo que activar alguna librería y no lo sabía? Me doy cuenta que la función debería ejecutarse a la perfección; más no es así.
Utilizo Visual Basic 6.0 edición Profesional, ¿o será la versión?

Esa función que te he dado es para .NET...

Disculpa la tardanza, experto.
Con qué razón nunca me salió, ¿pudieras darme alguna sugerencia de cómo puedo realizar ese problema?
De antemano, muchas gracias.