ryochanさん、こんばんは。返事が遅くなってすみません。

PBだけで変換するやり方を試してみましたが、こちらではダメでした・・・。
固定の文字をUNICODE変換→ASCII変換するのはうまくいったのですが、実際のDLLの戻り値は変換すると
文字化けしてしまいました。というわけで、ryochanさんのVCのサンプルを殆どそのまま使う形で新たに
DLLを作成しました。

[PB側]
Function int ReceiveData(Int No, Ref String STS, Ref String ResDATA) &
                         Library \"PCardsub.DLL\"  Alias For _ReceiveDataA@28　←名前が変わった
[VC側]
extern \"C\"
{
__declspec(dllexport) int WINAPI ReceiveDataA(short int, LPTSTR, LPTSTR);
}
int WINAPI ReceiveDataA(short int No, LPTSTR cpSTS, LPTSTR cpDATA)
{
int Rtncd;
int nLen;
BSTR bstrSTS;
BSTR bstrDATA;

// バッファ確保
nLen = MultiByteToWideChar(CP_ACP, 0, cpSTS, strlen(cpSTS), NULL, 0);
bstrSTS = SysAllocStringLen(NULL, nLen);
nLen = MultiByteToWideChar(CP_ACP, 0, cpDATA, strlen(cpDATA), NULL, 0);
bstrDATA = SysAllocStringLen(NULL, nLen);

Rtncd = ReceiveData(No, &bstrSTS, &bstrDATA);

_snprintf(cpSTS, 2, \"%s\", bstrSTS);     <---仕様が2バイトなので合わしました
_snprintf(cpDATA,1024, \"%s\", bstrDATA); <---こちらは可変長です

//メモリの開放
SysFreeString(bstrSTS);
SysFreeString(bstrDATA);

return Rtncd;
}
以上のようなやり方で対応できました。1週間に渡りいろいろと教えていただいて有難うございました。
また、何かありましたらよろしくお願いします。