Here's something I threw together really quick. It's not
guaranteed unique, but you'd have to generate an awful lot of them before you'd get dupes...
Function GenerateGuid() As String
' Ex. {5EF8541E-C9F7-CFCD-4BD4-036AF6C145DA}
Return "{" + GetRandomHexString(8) + "-" + GetRandomHexString(4) + "-" + GetRandomHexString(4) + "-" + GetRandomHexString(4) + "-" + GetRandomHexString(12) + "}"
End Function
Function GetRandomHexString(length As Integer) As String
hexChars = "0123456789ABCDEF"
hexString = ""
For i = 1 to length
hexString = hexString + hexChars.Mid(Rnd(16) - 1, 1)
Next
Return hexString
End Function
My Channels: http://roku.permanence.com - Twitter: @TheEndlessDev
Instant Watch Browser (NetflixIWB), Aquarium Screensaver (AQUARIUM), Clever Clocks Screensaver (CLEVERCLOCKS), iTunes Podcasts (ITPC), My Channels (MYCHANNELS)