Private Sub Command1_Click()
Text1 = Text1 + 1

End Sub

Private Sub Command2_Click()
Text1 = Text1 ^ 2

End Sub

Private Sub Command3_Click()
Text1 = Text1 + 10
End Sub

Private Sub Command4_Click()
Text1 = Text1 + 100
End Sub

Private Sub Command5_Click()
Text1 = Text1 + 1000
End Sub

Private Sub Command6_Click()
Text1 = 0
End Sub

Private Sub Command7_Click()
Text1 = Text1 ^ 0.5

End Sub

    Source: geocities.com/matkins70