'LbUuid

Private Type Uuid
    data1 As Long
    data2 As Integer
    data3 As Integer
    data4( 7 ) As Byte
End Type

Private Declare Function CoCreateGuid Lib "ole32" (ByVal pg As Long) As Long
Private Declare Function UuidToString Lib "Rpcrt4" Alias "UuidToStringA" (ByVal pg As Long, ps As Long) As Long
Private Declare Function RpcStringFree Lib "Rpcrt4" Alias "RpcStringFreeA" (ps As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal tgt As Long, ByVal src As Long, ByVal size As Long)

Private m_u As Uuid

Private Function Generate() As Boolean
    Generate = CoCreateGuid(VarPtr(m_u)) =  0 
End Function

Public Function Guid() As String
    Dim i As Integer
    Guid = ""
    If Generate() Then
        Guid = "{" & Hex(m_u.data1) & "-" & Hex(m_u.data2) & "-" & Hex(m_u.data3) & "-"
        For i =  0  To  7 
            Guid = Guid & Hex(m_u.data4(i))
        Next i
        Guid = Guid & "}"
    End If
End Function

Private Function StringToGuid(ByVal str As String) As Uuid
    Dim d( 2 ) As Integer, s As String, l As Long, i As Integer, g As Uuid
    On Error GoTo wrong
    StringToGuid.data1 =  0 
    StringToGuid.data2 =  0 
    StringToGuid.data3 =  0 
    For i =  0  To  7 
        StringToGuid.data4(i) =  0 
    Next i
    i =  0 
    l =  0 
    For i =  1  To Len(str)
        If Mid(str, i,  1 ) = "-" Then
            d(l) = i
            l = l +  1 
        End If
    Next i
    s = "&H" & Mid(str,  2 , d( 0 ) -  2 )
    g.data1 = CLng(s)
    s = "&H" & Mid(str, d( 0 ) +  1 , d( 1 ) - d( 0 ) -  1 )
    g.data2 = CInt(s)
    s = "&H" & Mid(str, d( 1 ) +  1 , d( 2 ) - d( 1 ) -  1 )
    g.data3 = CInt(s)
    For i =  0  To  7 
        s = "&H" & Mid(str, d( 2 ) +  1  + i *  2 ,  2 )
        g.data4(i) = CByte(s)
    Next i
    StringToGuid = g
wrong:
End Function