こんばんは。
ソースを送っていただいたので試して見ました。
結論としては修正出来たようです。
> Type COPYDATASTRUCT
> dwData As Long
> cbData As Long
> lpData As String * 3927 ' void * のつもり
> End Type
lpData As String で良く、以下が余分だったかと。
[ * 3927 ' void * のつもり ] <== この部分は余分。
下記で切り出しをしていたのですが lpData As String にすれば
cds.lpData に THW からの情報が普通に取れていました。
For i = 1 To 3927
a = Mid(cds.lpData, i, 1)
...以下省略