Something like this...

Private Sub TextBox1_Change()
TextBox1.Text = Format(TextBox1.Text, "#,##0")
End Sub
--
HTH...

Jim Thomlinson


"malpropio" wrote:

Hi everyone
Is there a way to programmatically format a textbox to use the 1000
Separator(,).

Thx