Visual Basic - Formato en un textbox

¿Como puedo hacer para q al introducir un numero en un text box adopte un formato determinado?
por ejemplo q al escribir 1800,25 automaticamente se ponga en 1.800,25.Gracias

Selu existen dos eventos LostFocus, GotFocus
El primero ocurre cuando el cursor abandona el campo y es hay donde puedes formatear el valor del txto
ejemplo
txtCampo = Format(txtCampo, "###.###,00")
Saludos desde Lima

Espero que esto dte ayude
Private Sub txtCampo_LostFocus()
txtCampo.Alignment = 1
txtCampo = Format(txtCampo, "###.###,00")
End Sub
Saludos desde Lima

Espero que esto dte ayude
Private Sub txtCampo_LostFocus()
txtCampo.Alignment = 1
txtCampo = Format(txtCampo, "###.###,00")
End Sub
Saludos desde Lima

Si quieres que adopte un formato mientras lo escribes puedes hacerlo desde el evento Change, que se produce cuando cambia el contenido el TextBox

Private Sub TextCampo_Change()
Select Case Menu.opcion
TextCampo.SelStart = Len(TextCampo.text) + 1
TextCampo.text = Format(TextCampo.text, "###.###.00")
End sub

Con el LostFocus() lo formateas a la que colocas el cursor en otro control, pero no mientras lo escribes.

Saludos.

Pedro

Private Sub TextCampo_Change()
TextCampo.SelStart = Len(TextCampo.text) + 1
TextCampo.text = Format(TextCampo.text, "###.###.00")
End sub

Sobraba la linea: Select Case Menu.opcion

Disculpa.

Pedro