怎样把bcb写的dll的数组的值传到vb中,该怎么处理

怎样把bcb写的dll的数组的值传到vb中 - C++ Builder / Windows SDK/API
如题

------解决方案--------------------
int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*)
{
return 1;
}
//---------------------------------------
extern "C " __declspec(dllexport) __stdcall int VBLoadBCBDll(PChar strGet)
{
//static char strRet[100] = "VB Load BCB Dll is OK! ";
//strcpy ( strGet, strRet ); // 使用这个代码也是对的

strcpy ( strGet, "VB Load BCB Dll is OK! " );
return 1;
}

vb:
Public Declare Function VBLoadBCBDll Lib "TestBCBDll.dll " (ByVal strGet As String) As Long


Private Sub Command1_Click()
Dim strBuffer As String
strBuffer = Space(255)
If (VBLoadBCBDll(strBuffer) = 1) Then
Text1.Text = strBuffer
End If
End Sub