Sub CreateHexSerial
Dim HexString As String = "01234567890ABCDEF"
Dim Serial As String
For I=0 To 9 '= length of 10
Serial=Serial & HexString.CharAt(Rnd(0, HexString.Length))
Serial=Serial & HexString.CharAt(Rnd(0, HexString.Length))
Next
Log(Serial)
End Sub