Something like perhaps:

Private Sub TextBox1_Change()
    Range("A" & Rows.Count).End(xlUp).Offset(1).Value = TextBox1.Value
End Sub