===== Code examples for VBA =====

==== Creating a GUID ====

<code vbnet>
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
</code>

A more compact way:

<code vbnet>
Function GenGuid() As String 
    GenGuid= Mid$(CreateObject("Scriptlet.TypeLib").GUID, 2, 36) 
End Function 
</code>