no funciona este código, se queda trabado cada vez que quieres dar al botón de "ordenar" , los siguientes variables están declaradas como,  i, j, Auxiliar, n  como de valor entero. El código es el siguiente:



    If rbdirecto.Checked = True Then
        n = lstnumeros.Items.Count
        For i = 1 To n
            Auxiliar = lstnumeros.Items(i)
            j = i - 1

            While (j >= 0) And (Auxiliar < lstnumeros.Items(j))
                lstnumeros.Items(j + 1) = lstnumeros.Items(j)
                j = j - 1
            End While
        lstnumeros.Items(j + 1) = Auxiliar
        Next
    End If




Sería de mucha ayuda que me digan en donde esta el error del codigo.