Perhaps code like this would do what you want, assuming that the + in the OP indicated concatenation rather than addition. This approach could be adapted to numeric addition.
Private Sub TextBox1_Change()
    TextBox2.Tag = TextBox1.Text
End Sub

Private Sub TextBox2_AfterUpdate()
    TextBox2.Text = TextBox2.Tag & TextBox2.Text
End Sub

Private Sub TextBox2_Enter()
    TextBox2.Text = Replace(TextBox2.Text, TextBox2.Tag, vbNullString, 1, 1)
End Sub