It would help if you told us what line of code you are getting the error on

Instead of the following command (which I am assuming is causing your problem)
TextBox2.Activate
You are probally wanting
TextBox2.SetFocus

What is the purpose of this command
TextBox2.Value = TextBox2.Text
TextBox2.Value is already the same as TextBox2.Text