Ciao. Hai due possibilità:
La prima:
codice:
 Dim i as [tuo tipo]
oppure:
codice:
 for i as [tuo tipo] = ...
Spero d'esserti stato d'aiuto