Private Sub TextBox4_Change()
Range("D9").FormulaR1C1 = TextBox4
Range("D9") = Range("D9").Value
TextBox6 = Range("d9") + Range("e9")
End Sub
Private Sub TextBox5_Change()
Range("E9").FormulaR1C1 = TextBox5
Range("E9") = Range("E9".Value
TextBox6 = TextBox4 + TextBox5
TextBox6 = Range("d9") + Range("e9")
End Sub