Hi,
assuming you want to do it on the click of a button then..

Private Sub CommandButton1_Click()
ThisWorkbook.Sheets(1).Cells(1, 1).Value = Me.TextBox1.Value
End Sub

Where TextBox1 is your textbox...

Hth,
Oli