lo que hace eso es comprobar si en una variable ya esta el index de la carta.. esto es parte de un juego de truco que una vez habia empezado a hacer.. por eso son 6 repeticiones y 40 cartas..
Código
Dim iPete As Integer Dim sPT As String Dim sResult As String Dim irnd As Integer For iPete = 0 To 5 recheck: irnd = Rnd * 39 If InStr(sPT, irnd) = 0 Then sPT = sPT & "," & irnd List1.AddItem irnd Else GoTo recheck End If Next iPete