Module Module1
Dim Generator As Random = New Random()
Sub Main()
Dim i As Integer
For i = 1 To 10
Console.Write(GetRandomLowercaseLetter() + " ")
Next
End Sub
Function GetRandomLowercaseLetter() As Char
Dim n As Integer = Generator.Next(0, 26)
Dim ch As Char = Chr(97 + n)
Return ch
End Function
End Module
' run:
'
' y r m m o d x y g t