Sub addNumbers()
'Declare the variables
Dim intNumber1 As Integer
Dim intNumber2 As Integer
Dim intSum As Integer
'Create InputBoxes to enter numbers
intNumber1 = 1
intNumber2 = 2
Debug.Print intNumber1 + intNumber
End Sub