Private sub command1_Click() dim Num1 as double dim Num2 as double dim Result as double Num1=text1.text Num2=Text2.text Result=cdbl(Num1)+cdbl(Num2) Text3.text=Resultend sub