damorrison wrote:
Now everytime the user form shows the textbox keep the old value ?

Are you asking how to keep the last value entered??

If so you need to store the previous value somewhere.

Try the following:

Private Sub TextBox1_Change()
Label1.Caption = TextBox1.Text -1
[a1].Value = Label1.Caption
End Sub


Private Sub UserForm_Activate()
Label1.Caption = [a1].Value
End Sub