Imports System
Imports System.IO
Public Class Program
Public Shared Function GetRandomString() As String
Dim p As String = Path.GetRandomFileName()
p = p.Replace(".", "")
Return p
End Function
Public Shared Sub Main(ByVal args As String())
Dim str As String = GetRandomString()
Console.WriteLine(str)
End Sub
End Class
' run:
'
' 3qjwikr3beo
'