ReadMultiple OLE Structured Storage interop fails under 64-bit

[John Levin]

I'm trying to port Edanmo's OLE Storage class
(http://www.mvps.org/emorcillo/en/code/grl/storage.shtml) to x64. After my
modifications, it still works fine under x86. However, I'm getting a
mysterious error when I try to call ReadMultiple on my IPropertyStorag e
object under x64: "No mapping for the Unicode character exists in the target
multi-byte code page. (Exception from HRESULT: 0x80070459)".

Here's the calling code:
Dim PROP As PROPSPEC
Dim value As Edanmo.OleStora ge.ComDefs.Vari ant

PROP.ulKind = PRPSPEC.PRSPEC_ PROPID
PROP.ID = propertyID

' Get the property
m_IPropStgObj.R eadMultiple(1, PROP, value)

And here are the platform declarations I'm using:
Sub ReadMultiple( _
<[In]()ByVal cpspec As Integer, _
<[In](), Out(), MarshalAs(Struc t)ByRef rgpspec As PROPSPEC, _
<Out(), MarshalAs(Struc t)ByRef rgpropvar As
Edanmo.OleStora ge.ComDefs.Vari ant)

< StructLayout(La youtKind.Explic it, CharSet:=CharSe t.Unicode) _
Friend Structure PROPSPEC
<FieldOffset(0) Public ulKind As PRPSPEC
<FieldOffset(4) Public ID As Integer
<FieldOffset(4) Public Name As IntPtr
End Structure

Friend Enum PRPSPEC As Integer
PRSPEC_LPWSTR = 0
PRSPEC_PROPID = 1
PRSPEC_INVALID = &HFFFFFFFF
End Enum

< StructLayout(La youtKind.Explic it) _
Friend Structure [Variant]
<FieldOffset(0) Dim vt As Short
<FieldOffset(8) Dim Ptr As IntPtr
<FieldOffset(8) Dim [Byte] As Byte
<FieldOffset(8) Dim [Long] As Long
'...(support functions for this struct omitted)
End Structure
I've tested and double-checked against Microsoft's docs every which way I
can think of without any luck. As I said, it works fine under x86 and as
far as I can tell it should work under x64 too. If someone has a solution
or any thoughts, please post them.

Thanks,

John