Non ho capito dove hai messo Integer... io intendevo nella dichiarazione di i:
codice:
Dim i As Integer
.