Add two numbers together : Integer « Data Type « VBA / Excel / Access / Word

Add two numbers together

Sub addNumbers()
   'Declare the variables
   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")
   'Add numbers
   intSum = intNumber1 + intNumber2
' Create an output
   Debug.Print "The numbers entered were " & intNumber1 & " and " & intNumber2
End Sub


Related examples in the same category

1.Integer number
2.Local Integer variable
3.Add integer together
4.Select Case statement with Integer value
5.Input and Output
6.Use If statement with Integer
7.The Integer data type is the most efficient way of handling numbers from -32,768 to 32,767
8.Overflow error