Private Sub Command1_Click() Dim a As Integer, b As Integer a = Text1 b = Text2 Text3 = a + bEnd SubPrivate Sub Form_Load()Text1 = ""Text2 = ""Text3 = ""End Sub