Thanks guys, but I get a message as follows:
Can't find project or library. with Format highlighted

"Bob Phillips" wrote:

Shouldn't that be

Private Sub TextBox1_Change()
TextBox1.Value = Format(TextBox1.Value, "#,##0")
End Sub



--

HTH

Bob

"Pas" wrote in message
...
I am trying to format a textbox and I'm using to following code:

Private Sub TextBox1_Change
TextBox1.Value = Format (TextBox1.Value, "###0")
End Sub

But nothing happens......Any ideas?


.