Dim TheStr As String

Private Sub EExp_Click()
Product.Text = "<Product>"
TheStr = ""
For x = 1 To Int(CarsPeds.Text * Players.Text) Step 1
   DoEvents
   TheStr = TheStr & "|" & Int((9000 - 1000) * Rnd + 1000)
   TheStr = TheStr & "*" & Int((9000 - 1000) * Rnd + 1000)
   TheStr = TheStr & "-" & Int((9000 - 1000) * Rnd + 1000)
   TheStr = TheStr & "+" & Int((9000 - 1000) * Rnd + 1000)
   TheStr = TheStr & "&" & Int((9000 - 1000) * Rnd + 1000)
   TheStr = TheStr & "@" & Int((9000 - 1000) * Rnd + 1000)
   TheStr = TheStr & "#" & Int((9000 - 1000) * Rnd + 1000)
   TheStr = TheStr & "$" & Int((9000 - 1000) * Rnd + 1000)
   TheStr = TheStr & "!" & Int((9000 - 1000) * Rnd + 1000)
   TheStr = TheStr & ">" & Int((9000 - 1000) * Rnd + 1000)
   Me.Caption = "Working...(" & x & ")  Out Of (" & Int(CarsPeds.Text * Players.Text) & ")"
Next x
MsgBox "done"
Product.Text = TheStr
End Sub