Generate a GUID from VBA or VBScript

gistfile1.vb

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

As of Office Security updates - July 2017 - this is likely to give a permission denied error. An alternative method is given in this Stack Overflow question.