face which
   ' we want to obtain:
   Dim iidCDBurn As UUID
   With iidCDBurn
      .Data1 = &amp;H3D73A659
      .Data2 = &amp;HE5D0
      .Data3 = &amp;H4D42
      .Data4(0) = &amp;HAF
      .Data4(1) = &amp;HC0
      .Data4(2) = &amp;H51
      .Data4(3) = &amp;H21
      .Data4(4) = &amp;HBA
      .Data4(5) = &amp;H42
      .Data4(6) = &amp;H5C
      .Data4(7) = &amp;H8D
   End With
   
   ' Create the instance of the object:
   Dim hr As Long
   hr = CoCreateInstance( _
      clsidCDBurn, Nothing, CLSCTX