Sub Calc()
Dim x As Integer
Dim y As Integer
Dim a As Single
Dim b As Single
Dim c As Single
Dim d As Single
x = InputBox("x = ")
y = InputBox("y = ")
a = x + y
b = x - y
c = x * y
d = x / y
Cells(1, 1).Value = a
Cells(2, 1).Value = b
Cells(3, 1).Value = c
Cells(4, 1).Value = d
End Sub