Dim TheStr As String Private Sub EExp_Click() Product.Text = "" 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