 fetched &gt; 0

   ' Release the reference to the property enumerator
   ' and ensure VB does not try to release it again
   enumProps.Release
   CopyMemory enumProps, 0&amp;, 4

End Sub

Private Function lpwstrPtrToString(ByVal lpwstrPtr As Long) As String
Dim lSize As Long
   If Not (lpwstrPtr = 0) Then
      lSize = lstrlenW(ByVal lpwstrPtr)
      If (lSize &gt; 0) Then
         ReDim b(0 To (lSize * 2) - 1) As Byte
         CopyMemory b(0), ByVal lpwstrPtr, lSize * 2
         lpwstrPtrToString = b
    