VB 字串數組 vc

VB的字串數組是由BSTR組成的SafeArray類型，所以VB裡DLL函數如此聲明：
Private Declare FunctionMyFun Lib "MyDll" (ByVal strarr As Variant) As Long
建立MFC DLL工程，名為 ShowVBStrArr 編譯產生 ShowVBStrArr.DLL
DLL函數原形：
extern "C" BOOL __stdcall ShowVBStrArray(VARIANT VBpStrArray)
{
SAFEARRAY FAR *pStrArrTemp = NULL;
long LBound;
long UBound;
BSTR HUGEP *pbstr;
CString strtemp;

if(V_VT(&VBpStrArray) != (VT_ARRAY | VT_BSTR))//判斷是否為字元數組
return FALSE;
pStrArrTemp = V_ARRAY(&VBpStrArray);
if (SafeArrayGetDim(pStrArrTemp)!=1)//判斷是否為一維數組
return FALSE;

SafeArrayGetLBound(pStrArrTemp,1,&LBound);
SafeArrayGetUBound(pStrArrTemp,1,&UBound);
SafeArrayAccessData(pStrArrTemp, (void HUGEP* FAR*)&pbstr);

for (int i=0;i<(UBound-LBound)+1;i++)
strtemp+=LPWSTR(pbstr);

MessageBox( 0,strtemp,"結果",MB_OK);

SafeArrayUnaccessData(pStrArrTemp);
return TRUE;
}

在DLL工程的def檔案裡編輯如下：
EXPORTS
ShowVBStrArray

VB源碼：
Option Explicit
Private Declare Function ShowVBStrArray Lib "ShowVBStrArr" (ByVal pstr As Variant) As Long

Private Sub Command1_Click()
Dim prompt(1) As String
prompt(0) = "Hello"
prompt(1) = "World"

ShowVBStrArray prompt
End Sub