Creating Random String

[SomeIntern]

hello everyone,
So I am new to QTP and wanted to see if i could get a little help. So I want to create a random string that will populate a Last Name field. I have this code that I found on another webpage that basically does what I want. The only problem is that it populates the field with special characters as well and I only want alpha characters.

Code:

Function RandomValue(vLength)

  For x=1 To vLength
    Randomize
    vChar = Int(89*Rnd) + 33
    If vChar = 34 Then
      vChar = 39
    End if

    RandomValue = RandomValue & Chr(vChar)
  Next

End Function

My knowledge of VB Script is nonexistent, so any help would be greatly appreciated.

Regards,
Erik

---

I have actually found a solution
I changed the code posted on a website to include lowercase letters instead of numbers. I'll post it in case anyone else ever needs it.

Code:

Function GetRandom(Count)
    Randomize

    For i = 1 To Count
        If (Int((1 - 0 + 1) * Rnd + 0)) Then
            GetRandom = GetRandom & Chr(Int((90 - 65 + 1) * Rnd + 65))
        Else
            GetRandom = GetRandom & Chr(Int((97 - 122 + 1) * Rnd + 122))
        End If
    Next
End Function