TextBox1.Text = Val(Controls("TextBox2").Text) + Val(Controls("TextBox3").Text) + Val(Controls("TextBox4").Text)