Jim,

Try:

TextBox18.Text = Format(UserFormNewItems.TextBox18.Value, "£#,##0.00")


--
Hope that helps.

Vergel Adriano


"Jimbob" wrote:

Hi all

I am really struggling to format a TextBox on a UserForm. I'm using
the following code on the Textbox change event, but keep getting - Run-
time error '438': Object does not support this property or method:

TextBox18.Value = Format(UserFormNewItems.TextBox18.Value,
"£#,##0.00")

I'm not experienced with 'Format' as every time i've attempted to use
it i've had similar problems. I've searched the group for a
resolution, but to no avail, i've also tried double quoting the ""£"",
but that diodn't work either

Can anyone please help

Thanks

Jim