2 bits of code - different result. why?

[tigertim71]

Sub t334()
Dim x, y, z As Integer
x = 3
y = 3
z = x + y
MsgBox z
End Sub

The answer to this code is 6

Sub test6()
Dim int1, int2, answer As Integer
int1 = InputBox("please type a whole number")
int2 = InputBox("please type another whole number")
answer = int1 + int2
MsgBox answer
End Sub

If I enter 3 in int1, and 3 in int2 I get 33. Does anyone know why? I would like it to add like in the first example and get 6...

[Richard Buttrey]

Hi,

The default value for an Input Box is a string. You're adding two strings together. If you change the line of code to:

answer = CInt(int1) + CInt(int2)

You'll get 6.

Incidentally did you realise that although you can declare several variables on one Dim line as you have done, you still need to define the type. i.e.

Dim int1 as Integer, int2 As Integer, answer As Integer

If you don't all but the last one are Variant variables

HTH

[tigertim71]

OK- Many Thanks. I've resolved this now and understand what I did wrong.