Public Function RandomString(iLowerBoundAscii As _
Integer, iUpperBoundAscii As Integer, _ lLowerBoundLength As Long, _ lUpperBoundLength As Long) As String Dim sHoldString As String Dim lLength As Long Dim lCount As Long 'Verify boundaries If iLowerBoundAscii < 0 Then iLowerBoundAscii = 0 If iLowerBoundAscii > 255 Then iLowerBoundAscii = 255 If iUpperBoundAscii < 0 Then iUpperBoundAscii = 0 If iUpperBoundAscii > 255 Then iUpperBoundAscii = 255 If lLowerBoundLength < 0 Then lLowerBoundLength = 0 'Set a random length lLength = Int((CDbl(lUpperBoundLength) - _ CDbl(lLowerBoundLength) + _ 1) * Rnd + lLowerBoundLength) 'Create the random string For lCount = 1 To lLength sHoldString = sHoldString & _ Chr(Int((iUpperBoundAscii - iLowerBoundAscii _ + 1) * Rnd + iLowerBoundAscii)) Next RandomString = sHoldString End Function This code helps test SQL functions or other string-manipulation routines so you can generate random strings. You can generate random-length strings with random characters and set ASCII bounds, both upper and lower: |