前回のコードで、環境により各関数の戻り値が正常
に返却されない場合もありましたので、確実な方法
を書きます。
もしかしたら、GOさんのところもそうだったのかも
しれません。
関数宣言が丁度,間違ってました（すみません）が、
その引数を使用します。

__declspec(dllexport) int WINAPI ReceiveDataA(short int No, LPTSTR STS,
int STSsize,LPTSTR DATA, int DATAsize)
{
略(前述と同じ)

　//取得したデータをASCIIに変換して戻す
　// 変換
　int nLenSTS  = WideCharToMultiByte(CP_ACP, 0, bstrSTS, STSsize,
　　　　　　　　　STS, STSsize, NULL, NULL);
　int nLenDATA = WideCharToMultiByte(CP_ACP, 0, bstrDATA, DATAsize,
　　　　　　　　　DATA, DATAsize, NULL, NULL);

　// 終端のヌル文字設定は必要なし。

　return 1;
}

PB側はblobではなく、固定長文字列でもOKでした、
function long ReceiveDataA(long No, ref char STS[1024],long STSsize,ref char DATA[1024],long 
DATAsize) library \"Pcard.dll\"

char c_STS[1024],c_DATA[1024]
c_STS = \"aaa\"
c_DATA = \"bbb\"
ReceiveDataA(0, c_STS, 1024, c_DATA, 1024)
messagebox(\"\",c_STS + \"~r~n\" + c_DATA)

1024バイトはあくまでも目安です。適当に設定してください。
NT,98SEで動作確認しています。
私も勉強の為回答しているので、できれば今の状況も
教えてください（って書いても、見てくれなきゃ意味がないか）。