marvanPrivate Function GetStr() As String
Dim n As Byte
Dim MaxLen As Byte
Dim mASCII As Byte
Dim strTmp As String
MaxLen = CByte(254 * Rnd)
For n = 1 To MaxLen
Do
mASCII = CByte(122 * Rnd)
If mASCII < 65 Then
mASCII = mASCII + 50
End If
Select Case mASCII
Case 65 To 90, 97 To 122
Exit Do
Case Else
mASCII = 0
End Select
Loop
strTmp = strTmp & Chr(mASCII)
Next
GetStr = strTmp
End Function

Только в начале функции надо вставить Randomize() иначе будет не случайная строка, а повторяющаяся от запуска к запуску строка