Generating Random Strings in QTP/UFT

'************************************
'Logic Explanation:
'************************************
' RandomNumber ststement only gives specific random numbers between given range
' 97-122 are the ASCII codes for a-z alphabets.
' Chr(97) will return 'a', Similarly Chr function return chacters based on ASCII codes
' In below function the random numbers will be generated between 97-122
' Using Chr function the generated numbers will be converted in to characters
' The generated characters will store in "gChr" variable
' Finally gChr value will be returned as Function Value
'************************************
Function GenerateRandomString(StrLength)
 
 ' Declare Variables
 Dim StrLenIndex
 Dim chrAscCode
 Dim gChr
 
 'Use for loop to generate StrLength many characters
 For StrLenIndex = 1 To StrLength
  ' Get Random ASCII Code
  chrAscCode=RandomNumber(97,122)
  ' Convert ASCII code in to character
  gChr=gChr&Chr(chrAscCode)
 Next
 'Return converted character to function
 GenerateRandomString=gChr
 
End Function
'************************************
'Function Calling
'************************************
MsgBox GenerateRandomString(5)
'************************************