Private Const GUID_OK As Long =  0 
Private Const GUID_LENGTH As Long = &H26

Private Type GUID
    GUID1 As Long
    GUID2 As Integer
    GUID3 As Integer
    GUID4( 0  To  7 ) As Byte
End Type

Private Declare Function CoCreateGuid Lib  "ole32.dll"  (pGUID As GUID) As Long
Private Declare Function StringFromGUID2 Lib  "ole32.dll"  (pGUID As GUID, ByVal PointerToString As Long, ByVal MaxLength As Long) As Long

Public Function CreateNewGUID() As String
On Error Resume Next
    Dim lngResult As Long
    Dim uGUID As GUID
    Dim strGUID As String


    lngResult = CoCreateGuid(uGUID)

    If lngResult <> GUID_OK Then
        Exit Function
    End If

    strGUID = Space(GUID_LENGTH)
    
    lngResult = StringFromGUID2(uGUID, StrPtr(strGUID),  1  + GUID_LENGTH)

    If lngResult = ( 1  + GUID_LENGTH) Then
        CreateNewGUID = strGUID
    End If

End Function