Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim i, j, t As Integer

        Dim a(6) As Integer

        For i = 0 To 6

            a(i) = Int(Rnd() * 45 + 1)

            For j = 1 To i - 1

                Do While a(i) = a(j)

                    a(i) = Int(Rnd() * 45 + 1)

                Loop

                For l = i + 1 To 6

                    If (a(i) < a(l)) Then

                        t = a(i)

                        a(i) = a(l)

                        a(l) = t

                    End If

                Next

            Next

            TextBox1.Text = TextBox1.Text & " " & a(i) & vbCrLf

        Next

로또생성에서 내림차순으로 정렬까지 해야하는데요,

 중복피하면서 로또숫자 6개생성까지는 잘 되는데

그뒤로 내림차순으로 정렬하는게 잘 안되네요 실행은 되는데 정렬이 안되어있는 채로 나와요ㅜㅜ

 저 식에서 어디가 잘못되었나요??