Mascara para datos

hola, Jorge !

... un userform y un textBox en donde quiero digitar una cantidad y que me la separe por puntos ejemplo
Digito 25000000 y me debe mostrar 25.000.000

suponiendo que tu textbox se llama 'TextBox1'... copia/pega las siguientes lineas...
en el modulo de codigo del formulario ==Private Sub TextBox1_Change()
TextBox1 = Format(TextBox1, "#,##0")
End Sub

solo toma en cuenta los siguientes comentarios:

1) al dar formatos numericos a un textbox, vba [que es US-Centric]...
a) 'asume' comas para separar miles y punto para las decimales
[lo que muestre dependera de la configuracion regional] :))
b) como sigue siendo un cuadro 'de texto'... lo que ves... es lo que contiene [es decir]
sus propiedades .Value y .Text -> seran [exactamente] EL TEXTO que muestre el control

2) cuando un textbox contiene 'numeros' CON formato en un entorno/idioma/... vba 'fuera' de EUA...
y por si quisieras 'devolverles' el valor numerico 'original'...
las funciones de conversion de valores p.e. -> Val(TextBox1)
a) para el idioma castellano/espa#ol... vba 'supone' que tus separadores son 'europeos' [es decir]...
-> 'asume' punto para separar miles y coma para las decimales [OJO con esto porque]...
b) en castellano PERO bajo una configuracion de separadores distintos...
-> la funcion Val(...) interpretara 'equivocadamente' el valor :-((

haz algunas pruebas y... si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.