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

Private Sub command2_click()
Text1 = ""
Text2 = ""
End Sub

    Source: geocities.com/matkins70