Imports System
Public Class Program
Public Shared Function CreateUniqueString() As String
Dim g As Guid = Guid.NewGuid()
Dim uniqueString As String = Convert.ToBase64String(g.ToByteArray())
uniqueString = uniqueString.Replace("+", "")
uniqueString = uniqueString.Replace("=", "")
uniqueString = uniqueString.Replace("/", "")
Return uniqueString
End Function
Public Shared Sub Main()
Dim uniqueString As String = CreateUniqueString()
Console.Write(uniqueString)
End Sub
End Class
' run:
'
' J0BTF1oQ0q1lMOw82pENA
'