Private Sub command1_Click() Text2 = Text1 * Text1 * 3.14 End Sub Private Sub command2_click() Text1 = "" Text2 = "" End Sub