Ahha

You mean a Userform
You can use the Format function to do this

Private Sub UserForm_Initialize()
Me.TextBox1.Text = Format(Sheets("Sheet1").Range("A1").Value, "0000")
End Sub



--
Regards Ron de Bruin
http://www.rondebruin.nl


"Alvin Hansen" wrote in message ...
Thanks
I can see how....
But in my Cell i have 0001
and i my form i only get 1
why?

Alvin


"Ron de Bruin" skrev:

Hi alvin

You can format the cell like this
Ctrl-1
Numbercustom
Type : Enter 0000 there

In a macro you can use this

With Sheets("sheet1").Range("A1")
..Value = .Value + 1
End With



--
Regards Ron de Bruin
http://www.rondebruin.nl


"Alvin Hansen" wrote in message
...
Hi!!
I shall make this form, and in this form
i shall use a number like a ID there every
time i start this form i get a new number
like if the last number i use was 0098 then
i get 0099 when i start the form. And when
i save the file the file name shal bee the number
i just get like 0099. hope someone can help how to do this

Best regards

Alvin