StringRND

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