SORTEIO ENTRE TIMES

Private Sub Command1_Click()
   
   Randomize
   
   Time1 = Int((5 - 0 + 1) * Rnd + 0)
   
   Do While True
      Time2 = Int((5 - 0 + 1) * Rnd + 0)
      If Time2 <> Time1 Then Exit Do
   Loop
   
   Do While True
      Time3 = Int((5 - 0 + 1) * Rnd + 0)
      If Time3 <> Time1 And Time3 <> Time2 Then Exit Do
   Loop
   
   Do While True
      Time4 = Int((5 - 0 + 1) * Rnd + 0)
      If Time4 <> Time1 And Time4 <> Time2 And Time4 <> Time3 Then Exit Do
   Loop
   
   Do While True
      Time5 = Int((5 - 0 + 1) * Rnd + 0)
      If Time5 <> Time1 And Time5 <> Time2 And Time5 <> Time3 And Time5 <> Time4 Then Exit Do
   Loop
   
   Do While True
      Time6 = Int((5 - 0 + 1) * Rnd + 0)
      If Time6 <> Time1 And Time6 <> Time2 And Time6 <> Time3 And Time6 <> Time4 And Time6 <> Time5 Then Exit Do
   Loop
   
   'RESULTADO
   'Time1 X Time2
   'Time3 X Time4
   'Time5 X Time6

End Sub

Private Sub Command1_Click()
Dim a As Integer
Dim i As Integer
Dim s As Integer
Randomize
i = 0
a = Rnd() * 6
cont = 0
Do While cont < 6
    Text1(cont).Text = a
    cont = cont + 1
    a = Rnd() * 6
  Do While i < 6
   s = Val(Text1(i).Text)
    If s = a Then
        a = Rnd() * 6
        i = 0
    Else
        i = i + 1
    End If
  Loop
  i = 0
Loop

End Sub