Ipercube

Function GenGuid() As String
 
	Dim TypeLib As Object
	Dim Guid As String
 
	Set TypeLib = CreateObject("Scriptlet.TypeLib")
	Guid = TypeLib.Guid
 
	' format is {24DD18D4-C902-497F-A64B-28B2FA741661}
	Guid = Replace(Guid, "{", "")
	Guid = Replace(Guid, "}", "")
	'Guid = Replace(Guid, "-", "")
 
	GenGuid = Guid
End Function

A more compact way:

Function GenGuid() As String 
    GenGuid= Mid$(CreateObject("Scriptlet.TypeLib").GUID, 2, 36) 
End Function