[Resolvido]Módulo dá erro

Boa tarde

Já tenho recorrido ao fórum para esclarecer dúvidas que vão surgindo e os membros têm sido sempre muito prestáveis e dado dicas valiosas!
Agora volto cá com mais uma dúvida.
Na base de dados que estou a construir tenho um módulo (não fui eu que o fiz, retirei também daqui), e até ao momento funcionou na perfeição. O problema foi hoje, ao tentar completar mais um registo, que apareceu um erro: "Run-time erros "9", Script out of range. Ao fazer debug é-me indicado que o erro está no seguinte comando:

Public Sub PopularMinhaArray(ByRef strArray() As String, ByRef lstBox As ListBox)
'By JPaulo@Outubro 2009
LimparMinhaArray strArray

lstBox.Requery
For i = 0 To lstBox.ListCount - 1
strArray(i) = lstBox.ItemData(i)
Next i
MinhaArrayNumeroUsado = lstBox.ListCount - 1
End Sub

Se alguém me conseguir esclarecer, fico desde já agradecida.

Qual é o tipo que a variável i está declarada? Se não for Double, tente colocar como tal para ver se ajuda.

Sinceramente não sei... Foi também uma ajuda conseguida aqui no fórum, uma vez que não percebo nada de módulos e macros.
Como é que posso obter a informação que me pede?
Obrigada.

Se funcionava e não alterou nada, terá de funcionar;

Quando faz Debug, qual a linha que fica marcada a amarelo ?

Boa tarde.
A linha que dá erro é:
strArray(i) = lstBox.ItemData(i

Que eu me apercebesse, não alterei nada, apenas começou a dar erro.

Catarina, você pode anexar aqui parte do seu banco, ou enviar para o meu email ?


jpaulo65@gmail.com

Resolvido com o aumento do array para 5000 registros;

Public myArray(5000) As String