Option Compare Database
Option Explicit

Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
(lpDest As Any, _
lpSource As Any, ByVal cbCopy As Long)


Private Function fnByteToTwoChars(p1 As Byte) As String
Dim s1 As String
s1 = Hex(p1)
If Len(s1) = 1 Then s1 = "0" & s1
fnByteToTwoChars = s1
End Function

Function fnGuidToString(p1 As Variant) As String
Dim b(1 To 16) As Byte
Dim s1 As String
CopyMemory b(1), ByVal StrPtr(p1), 16
s1 = "{"
s1 = s1 & fnByteToTwoChars(b(4))
s1 = s1 & fnByteToTwoChars(b(3))
s1 = s1 & fnByteToTwoChars(b(2))
s1 = s1 & fnByteToTwoChars(b(1))
s1 = s1 & "-"
s1 = s1 & fnByteToTwoChars(b(6))
s1 = s1 & fnByteToTwoChars(b(5))
s1 = s1 & "-"
s1 = s1 & fnByteToTwoChars(b(8))
s1 = s1 & fnByteToTwoChars(b(7))
s1 = s1 & "-"
s1 = s1 & fnByteToTwoChars(b(9))
s1 = s1 & fnByteToTwoChars(b(10))
s1 = s1 & "-"
s1 = s1 & fnByteToTwoChars(b(11))
s1 = s1 & fnByteToTwoChars(b(12))
s1 = s1 & fnByteToTwoChars(b(13))
s1 = s1 & fnByteToTwoChars(b(14))
s1 = s1 & fnByteToTwoChars(b(15))
s1 = s1 & fnByteToTwoChars(b(16))
s1 = s1 & "}"
fnGuidToString = s1
End Function