Easy Calculator:

[|2eM!x]

Less than 20 lines of code, thats a good calculator ; )...Check it out

For you lazy bums who dont want to download it:

Option Explicit
Dim x As Integer, y As String, z As Integer, zz As Integer
Dim b As New ScriptControl
 
Private Sub AC_Click()
    Calc.Caption = " "
    y = " "
End Sub
 
Private Sub Cmd_Click(Index As Integer)
    x = Calc.Caption
    y = Cmd(Index).Caption
End Sub
 
Private Sub Command1_Click(Index As Integer)
 
 Calc.Caption = Command1(Index).Caption
    If Len(x) > 0 Then
        Calc.Caption = (b.Eval(x & y & Calc.Caption))
    End If
End Sub
 
Private Sub Form_Load()
b.Language = "vbScript"
End Sub