Hello sepandb,

Here is a code example to transfer the text from a TextBox on a UserForm to a Worksheet cell. Change the names in red to match what you want to use.
Private Sub TextBox1_AfterUpdate()
    Worksheets("Sheet1").Range("A1") = TextBox1
EndSub
Sincerely,
Leith Ross