Sub comp_IntegerLong()
Dim k As Long, t As Single
Dim i As Integer, a(0 To 99) As Integer
Dim j As Long, b(0 To 99) As Long
'Integer
t = Timer
For k = 1 To 1000000
Erase a
For i = 0 To 99
a(i) = a(i) + i
Next i
Next k
Debug.Print "Integer : "; Timer - t
'Long
t = Timer
For k = 1 To 1000000
Erase b
For j = 0 To 99
b(j) = b(j) + j
Next j
Next k
Debug.Print "Long : "; Timer - t
End Sub