Imports System
Public Class Program
Public Shared Sub Main()
Dim charset As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
Dim rnd As Random = New Random()
For i As Integer = 0 To 8
Console.Write(charset(rnd.[Next](charset.Length)) & " ")
Next
End Sub
End Class
' run:
'
' U I E a J Z X c G
'