비쥬얼 잘하시는분들 좀 도와주세요

Dim lot(6), t As Integer

        For i = 1 To 6
            Randomize()
            lot(i) = CInt(Int((45 * Rnd()) + 1))
        Next
        For i = 1 To 5
            For j = (i + 1) To 6
                If lot(i) > lot(j) Then
                    t = lot(i)
                    lot(i) = lot(j)
                    lot(j) = t
                End If
            Next
        Next
        For o = 1 To 5
            For p = (o + 1) To 6
                If lot(o) = lot(p) Then
                    For k = 1 To 6
                        Randomize()
                        lot(k) = CInt(Int((45 * Rnd()) + 1))
                    Next k
                    For l = 1 To 5
                        For m = (l + 1) To 6
                            If lot(l) > lot(m) Then
                                t = lot(l)
                                lot(l) = lot(m)
                                lot(m) = t
                            End If
                                Next m
                    Next l
                Else
                End If
            Next p
        Next o
        TextBox1.Text = ""
        For i = 1 To 6
            TextBox1.Text = TextBox1.Text & lot(i) & vbCrLf
        Next

로또 생성프로그램을 짤려고 하는데 제 머리로는 아무리짜도 똑같은 숫자가 가끔 나오는데

lot(1)~lot(6)까지중에 겹치는게 잇으면 난수를 다시 발생시키고 다시 배열시킨담에 또 같은게 들어 잇으면

다시 난수를 발생시키고 배열시키고 같은 숫자가없으면 무한루프를 그만두는 이런식으로 프로그래밍을 해야될것 같은데

아무리 해도 안되는데 어떻게 해야할까요??