>>123
> Dim Ret As String * 255
> Zip Me.hWnd, SendStr, Ret, 255

Retも怪しいんですが。
本当はByte型のテーブルにして、実行後にSJIS→UNICODE(String)コンバートするんじゃないかと。