Create a GUID (Globally Unique Identifier) in VBA

Public Function GetGUID() As String

    GetGUID = Mid$(CreateObject("Scriptlet.TypeLib").GUID, 2, 36)

End Function

Tesato in MS Access 2003.
Trovato qui.