Вот функция, которую я написал, которая использует GetRandomFileName () для получения случайной строки любой длины.
''' <summary>
''' Obtain a random string of any length.
''' </summary>
''' <param name="length">Desired length of string.</param>
''' <returns></returns>
''' <remarks></remarks>
Public Shared Function GetRandomString(ByVal length As Integer) As String
Dim sb As New StringBuilder(length)
While (sb.Length < length)
' GetRandomFileName returns a "cryptographically strong" random filename ex: "bfdbn2af.sxq"
sb.Append(IO.Path.GetRandomFileName().Replace(".", ""))
End While
' strip the excess characters
sb.Remove(length - 1, sb.Length - length)
Return sb.ToString()
End Function