OBTENIR UN GUID

'Déclarations API
Private Declare Function CoCreateGuid Lib _
    "ole32.dll" (buffer As Byte) As Long
Private Declare Function StringFromGUID2 Lib _
    "ole32.dll" (buffer As Byte, ByVal lpsz As Long, _
    ByVal cbmax As Long) As Long


'Fonction
Private Function getGUID() As String
Dim buffer(15) As Byte
Dim s As String
Dim ret As Long
s = String$(128, 0)
ret = CoCreateGuid(buffer(0))
ret = StringFromGUID2(buffer(0), StrPtr(s), 128)
getGUID = Left$(s, ret - 1)
End Function