I am attempting to add these TextBox Values and place the results into
TextBox503 but am having no luck. It will place the value of TextBox1 into
TextBox503 but will not add the values in the other TextBoxes.



Private Sub TextBox1_Change()

TextBox503.Value = CDbl("0" & TextBox1.Value) + CDbl("0" & TextBox2.Value) +
CDbl("0" & TextBox3.Value)
TextBox503.Text = Format(TextBox1.Text, "0.0000")

End Sub