Function CreateGuid(ParamArray S() As Variant) As String
CreateGuid = "{" + LCase(Mid$(CreateObject("Scriptlet.TypeLib").Guid, 2, 36)) + "}"
End Function
Function CreateGuid(ParamArray S() As Variant) As String
CreateGuid = "{" + LCase(Mid$(CreateObject("Scriptlet.TypeLib").Guid, 2, 36)) + "}"
End Function