VB Code:
Private Type guid
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(7) As Byte
End Type
Private Declare Function CLSIDFromString Lib "ole32.dll" (ByVal pstCLS As Long, clsid As guid) As Long
Private Sub form_load()
Dim s As String
Dim x, i
Dim g As guid
s = "{BC713507-8AB8-11D2-B4A9-0008C7FA5601}"
CLSIDFromString StrPtr(s), g
For i = 0 To UBound(g.Data4)
x = x & Hex(g.Data4(i)) & " "
Next
Debug.Print Hex(g.Data1) & " " & Hex(g.Data2) & Hex(g.Data3) & x
VB Code:
Private Declare Function CLSIDFromString Lib "ole32.dll" (ByVal lpszProgID As Long, pCLSID As Any) As Long
Dim guid(15) As Byte
' convert from string to a binary CLSID
CLSIDFromString StrPtr(s), guid(0)
For i = 0 To UBound(guid)
x = x & Hex(guid(i)) & " "
Next
Debug.Print x