KOD : Private Sub CommandButton2_Click() Dim s1, s2, sonuc As Double s1 = TextBox1.Text s2 = TextBox2.Text sonuc = s1 + s2 TextBox3.Text = sonuc