Imports System
Imports System.Text
Public Class Test
Public Shared Sub Main()
Dim s As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
Dim r As New Random
Dim sb As New StringBuilder
For i As Integer = 1 To 10
sb.Append(s.Substring(r.Next(0, 52), 1))
Next
Console.WriteLine(sb.ToString())
End Sub
End Class
' run:
'
' qpYdACfYaN