For x = 0 To 3 'Rasgele 4 kelime için satýr seçme

        UstSnr = SozlukColl.Count

        Randomize

        KelimSira = Int((UstSnr - AltSnr + 1) * Rnd + AltSnr)

        Secim(x) = KelimSira

        SozlukColl.Remove (KelimSira) 'seçilen satýrý silme

    Next x

Yukardaki kodu alttaki gibi değiştirip deneyin.

    For x = 0 To 3 'Rasgele 4 kelime için satır seçme

        UstSnr = SozlukColl.Count

var:

        Randomize

        KelimSira = Int((UstSnr - AltSnr + 1) * Rnd + AltSnr)

        Secim(x) = KelimSira

        For kontrol = 0 To x - 1

            If Secim(x) = Secim(kontrol) Then GoTo var

        Next

    Next x