Private Function RightAdd(ByVal this As String, ByVal textLen As Long) As String
    Dim vLen As Long
    vLen = Len(this)
    If vLen < textLen Then this = String$(textLen - vLen, "0") & this
    RightAdd = this
End Function

Public Function Hex34() As String
    Math.Randomize
    Hex34 = RightAdd(Hex$(Int(1048576 * Math.Rnd)), 5) & RightAdd(Hex$(Int(1048576 * Math.Rnd)), 5) & _
        RightAdd(Hex$(Int(1048576 * Math.Rnd)), 5) & RightAdd(Hex$(Int(1048576 * Math.Rnd)), 5) & _
        RightAdd(Hex$(Int(1048576 * Math.Rnd)), 5) & RightAdd(Hex$(Int(1048576 * Math.Rnd)), 5) _
        RightAdd(Hex$(Int(65536 * Math.Rnd)), 4)
End Function

Function RndHex(length As Integer) As String
Dim s As Byte, x As Long
Application.Volatile True
For x = 1 To length
s = 48 + Int(Rnd() * 23)
If s > 57 And s < 65 Then s = s - 7
RndHex = RndHex & Chr(s)
Next
End Function

Function SerialNomer() As String
Dim i&, ii&, Sl, Sr$
Do
    i = i + 1
    Randomize
    For ii = 1 To 5
    Sl = 7 * Rnd
        If Sl <= 2 Then
            Sr = Int(10 * Rnd)
        Else
            Sr = Chr(26 * Rnd + 65)
        End If
        SerialNomer = SerialNomer & Sr
    Next
    If i = 5 Then Exit Do
        SerialNomer = SerialNomer & "-"
Loop
End Function