VB6 - Buscar dentro de un array

[Laufwerk]

creo que es porque en el primer instante el array no vale nada.
Te adjunto mi codigo

Código:

Dim numPeticio() As Integer

            If Not Esta(rsPeticions.Fields("pbtnpet").Value, numPeticio()) Then
                ReDim numPeticio(comptadorArray)
                numPeticio(comptadorArray) = rsPeticions.Fields("pbtnpet").Value                ' Guardamos el numero de peticion en una variable
                comptadorArray = comptadorArray + 1
...
...
...

Gracias