Imports System
Imports System.Text
Public Class Program
Public Shared Function generateRandomString(ByVal len As Integer) As String
Dim charset As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
Dim rnd As Random = New Random()
Dim sb As StringBuilder = New StringBuilder(len)
For i As Integer = 0 To len - 1
sb.Append(charset(rnd.[Next](charset.Length)))
Next
Return sb.ToString()
End Function
Public Shared Sub Main()
Console.Write(generateRandomString(5))
End Sub
End Class
' run:
'
' nDfxT
'