Function to generate Random String\Value

Randomize

Public Function GenerateRandomVal(intValType,intNumChar)
Dim strText,strStart,strRndVal
Randomize
if intValType = 1 then
strText = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
msgbox(strText)
Elseif intValType=2 Then
strText = "123456789"
msgbox(strText)
End If
For intCount=1 to intNumChar
strStart=int(Rnd * (Len(strText)))+1

strRndVal= strRndVal & Mid(strText, strStart,1)
Next
GenerateRandomVal=strRndVal
msgbox(GenerateRandomVal)
End Function