VB6 - Buscar dentro de un array

[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