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