Private Sub Command1_Click()Dim a As Double, b As Doublea = Text1.Textb = Text2.TextMsgBox a + bEnd Sub
