• Home
 · 
• Miscellaneous
 · 
• Generates a random alphanumeric string of user controlled length. Usage: MsgBox RandomString(50) wo

Generates a random alphanumeric string of user controlled length. Usage: MsgBox RandomString(50) wo

Generates a random alphanumeric string of user controlled length. Usage: MsgBox RandomString(50) would return a 50 character random string.

Rate Generates a random alphanumeric string of user controlled length. Usage: MsgBox RandomString(50) wo

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

 Dim t As Integer, v As String, X As Currency

 For X = 1 To l

  Randomize
 
  t = Int((3 * Rnd) + 1)
 
  If t = 1 Then v = v & Chr(Int((26 * Rnd) + 1) + 96)
  If t = 2 Then v = v & Chr(Int((26 * Rnd) + 1) + 64)
  If t = 3 Then v = v & Chr(Int((9 * Rnd) + 1) + 48)
 
 Next
 
 RandomString = v

End Function