Matt,

Below is the code which will do the work ...

Option Explicit
Private Sub TextBox1_Change()
'if Cell F5 contains the final calculation
TextBox1.Text = Range("F5").Value
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Call TextBox1_Change
End Sub

HTH
Carim