Sub Calculation()
Dim num1 As Integer
Dim num2 As Integer
Dim answer As Integer
num1 = 10
num2 = 5
answer = num1 + num2 ' answer Holds 15
answer = num1 - num2 ' answer Holds 5
answer = num1 * num2 ' answer Holds 50
answer = num1 / num2 ' answer Holds 2
answer = num1 ^ 2 ' answer Holds 100
answer = 2 ^ num2 ' answer Holds 32
End Sub