VB6 - Buscar dentro de un array

[Laufwerk]

Hola amigos imaginemos que tenemos este array

miArreglo(0)="55368"
miArreglo(1)="12336"
miArreglo(2)="12368"
miArreglo(3)="12358"
miArreglo(4)="99654"
miArreglo(5)="33224"
miArreglo(6)="45996"
miArreglo(7)="35412"
miArreglo(8)="12879"
miArreglo(9)="45698"
miArreglo(10)="35597"

Cómo puedo buscar el numero 45996 y que me diga si está en el array o no?

Gracias!!!!

[Laufwerk]

de momento tengo hecho esto, pero me salta un error que dice "Calificador no valido"

Esta es mi función

Código:

Function NoEsta(numPet As String, arrayNumPet() As String) As Boolean
    Dim posiciones As Integer
    posiciones = arrayNumPet.Len
    
    For i = 0 To posiciones - 1
        If arrayNumPet(i) = numPet Then
            NoEsta = True
        Else
            NoEsta = False
        End If
    Next i
End Function

y la llamo asi

Código:

        Dim numPeticio() As String
        Dim comptadorArray As Integer
        comptadorArray = 0

            If NoEsta(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
            Else
                rsPeticions.MoveNext
            End If

Gracias de nuevo

[Avellaneda]

Iniciado por Laufwerk

de momento tengo hecho esto, pero me salta un error que dice "Calificador no valido"

Esta es mi función

Código:

Function NoEsta(numPet As String, arrayNumPet() As String) As Boolean
    Dim posiciones As Integer
    posiciones = arrayNumPet.Len
    
    For i = 0 To posiciones - 1
        If arrayNumPet(i) = numPet Then
            NoEsta = True
        Else
            NoEsta = False
        End If
    Next i
End Function

Gracias de nuevo

Hola, modifica esta línea

For i = 0 To UBound(arrayNumPet)

Y no necesitas la variable 'posiciones'.

[Laufwerk]

ok, ahora me salta un error que me dice:
"El subíndice está fuera del intervalo" justamente en la línea que ud. me puso.

Gracias

[Avellaneda]

Iniciado por Laufwerk

ok, ahora me salta un error que me dice:
"El subíndice está fuera del intervalo" justamente en la línea que ud. me puso.

Gracias

¿Qué valor tiene la variable i cuando salta el error?
¿Tienes declarada la instrucción Option Base?

[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