Private Sub Command1_Click()Dim a As Date, b As Datea = CDate(Text1.Text)b = CDate(Text2.Text)Text3.Text = a + bEnd Sub
