Estoy haciendo un trabajo práctico sobre métodos de ordenamiento y en un método de seleccion directa me aparece este error, pero no logro ver qué está mal. Comparé con uno que si funciona y en teoría es igual al mio. El error me lo marca en el IF.

        Dim candidato As Long
        Dim menor As Long
        Dim i As Long
        Dim aux As Long
        Dim tInicio As Long, tFin As Long

        v = o.Clone
        Dim Limite = v.GetUpperBound(0)
        tInicio = DateTime.Now.Ticks

        candidato = 0
        While candidato < Limite
            cCondicionales += 1
            menor = candidato
            cAsignaciones += 1
            i = candidato + 1
            While i <= Limite
                cCondicionales += 1
                **If v(i) < v(menor) Then**
                    cAsignaciones += 1
                    menor = -1
                End If
                i += 1
            End While
            cAsignaciones += 3
            aux = v(candidato)
            v(candidato) = v(menor)
            v(menor) = aux
            candidato += 1
        End While
        tFin = DateTime.Now.Ticks
        TiempoTranscurrido = (tFin - tInicio) / 10000000