VB6 - Buscar dentro de un array

[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'.