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.