Calc.vbs

Dim a,b,c,d
Do
a = inputBox ("Enter the first number:")
If a = vbClose Then Exit Do
b = inputbox ("Enter the second number:")
If b = vbClose Then Exit Do
c = inputbox ("Enter the action (+, -, * or :):")
If c = vbClose Then Exit Do
if c = "+" then d = cint(a) + cint(b)
if c = "-" then d = cint(a) - cint(b)
if c = "*" then d = cint(a) * cint(b)
if c = ":" then d = cint(a) / cint(b)
MsgBox "Result: "&d
Loop