Dim txt1, txt2, txt3, txt4, txt5, txt6 As Integer
        Randomize()
        Do Until txt1 <> txt2 And txt2 <> txt3 And txt3 <> txt4 And txt4 <> txt5 And txt5 <> txt6
            txt1 = Rnd() * 100
            txt2 = Rnd() * 100
            txt3 = Rnd() * 100
            txt4 = Rnd() * 100
            txt5 = Rnd() * 100
            txt6 = Rnd() * 100
        Loop

Bu şekilde döngü 6 değişkeninde birbirine benzemiyecek hale gelene kadar döndürür sonra çıkar döngüden ve elinizde 6 birbirinden farklı değişken olur.