Dim cl As New Collection
On Error Resume Next
Do: i$ = Int(0 + (Rnd() * 50))
      cl.Add i, i
Loop While cl.Count < 5

For r = 1 To cl.Count
     Debug.Print cl.Item(r)
Next

Dim x As Control
Dim y
For Each x In Me.Controls
If TypeOf x Is MSForms.TextBox Then
         If x.Name = "TextBox1" Or x.Name = "TextBox2" Or x.Name = "TextBox3" Or x.Name = "TextBox4" Or x.Name = "TextBox5" Then
             Dim cl As New Collection
             On Error Resume Next
             Do: i$ = Int(0 + (Rnd() * 50))
                 cl.Add i, i
             Loop While cl.Count < 5
             For r = 1 To cl.Count
                 x.Value = cl.Item(r)
             Next
         End If
          If x.Name = "TextBox6" Or x.Name = "TextBox7" Then
             y = (Int(0 + (Rnd() * 8)))
             x.Value = y
         End If
End If
Next

End Sub