Sub addNumbers1()
'Declare the variables
Dim intNumber1 As Integer
Dim intNumber2 As Integer
Dim intSum As Integer
'Create InputBoxes to enter numbers
intNumber1 = 1
intNumber2 = 2
'Add numbers
intSum = intNumber1 + intNumber
Debug.Print "The numbers entered were " & intNumber1 & " and " & intNumber2
End Sub