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