SCHOEPSTECNOLOGY

Para dar un formato a un valor contenido en una caja de texto o textbox en VISUAL BASIC  6.0 solo hay que usar esta funcion:

Format(expresión[, patrón o máscara])

Donde Format: es el que no va a indicar al compilador que va dar un formato al valor contenido en el TEXTBOX.

Expresión: es una variable donde vamos a tener almacenado nuestro valor a dar el formato.

Patrón o Máscara: es el formato o el patron de formato que queremos mostra o dar a nuestro valor.

Ok entonces para realizar el formato solo tenemos que declarar una variable de tipo Double, donde Contendremos nuestro valor :                           

 Dim midato as Double

Luego asignamos el valor a nuestra variable:

 midato = Val(text1.text)

Luego asigno el formato a ese valor y lo muestro en ese mismo Textbox:

                text1.text = format (midato, "###,###,###")

En este video muestro bien como hacer esta funcion usando el evento keyPress del textbox