Script not working Error13 Please help

Hello i'm using the following script and it is saying Error 13. I try to find the mistake but i couldn't find it. Little help will be much appreciated.

Thanks for the help in advance.

Please Login or Register  to view this content.

13 means you tried to assign the wrong data type....text to a number or combo box to a text, etc
Looking here my guesses:

Sheets("2") will only work if the sheet is ACUTALLY NAMED 2. (not sheet #2)
if you want sheet #2 its: Sheets(2) (no quotes)

guess 2:
TextBox1.Value is not producing what you think.