Sub addNumbers() Dim intNumber1 As Integer Dim intNumber2 As Integer Dim intSum As Integer 'Create InputBoxes to enter numbers intNumber1 = InputBox("Enter the first number") intNumber2 = InputBox("Enter the second number") End Sub