Sub addNumbers() Dim intNumber1 As Integer Dim intNumber2 As Integer Dim intSum As Integer intNumber1 = 5 intNumber2 = 3 intSum = intNumber1 + intNumber2 Debug.Print "The sum of the two numbers is: " & intSum End Sub