Mega Code Archive
Read integer number from InputBox
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