Il codice da te postato in realtà non ti restituisce proprio niente, ma si limita ad inizializzare un ciclo for/next.
L'indice di un ciclo può essere ottenuto semplicemente tramite una variabile contatore di tipo Integer o Byte, in base alle esigenze del caso: se la collezione contiene sempre e solo per esempio 10 elementi, basterà utilizzare il tipo Byte.

codice:
dim cont as Integer
cont = 0
for each valori in my_collection
cont = cont + 1
next