Private Sub Textbox1_Change()
Worksheets("Sheet1").Range("A1").Value = textbox1.Text
End sub
This uses the change event for the textbox. There may be better events to
use depending on what you want to do. Change is common to both a textbox on
the worksheet and in a userform. This assumes and MSforms.TextBox