如何用SAFEARRAY向VBS传递数组　[金字塔]

最近写了个MFC Dll ，用VBS成功的向C++的Dll里传递了数组，可是处理完毕之后，我却不知道怎样传回来了。

我的函数体如下：

BaoHanTest(const VARIANT FAR& vbkh, const VARIANT FAR& vbkl,long length, VARIANT FAR& buffer)

其中vbkh，vbkl，length都是vbs传给dll的，这部分C++获取数据没问题，buffer是用来传出数组的

需要传给vbs的数组是这样定义的：

 float *kh=new float [length+1];

里面已经放好了数据，如今想通过buffer把它传回VBS，用Array()接受，    例如，object.函数名 Array

网上说用SAFEARRAY，可是我传回去的都接受不到，不知道怎样弄

给你一段金字塔的C++代码

VARIANT IFormulaRunTime::GetVARDATA(LPCTSTR Name)
{
 COleSafeArray saRet;
 if(!m_pCallBack->m_pExp)
  return saRet.Detach();
 
 if(GetDataSize() == 0)
  return saRet.Detach();
 
 int nLineIndex = m_pCallBack->GetLineIndex(Name);
 if(nLineIndex < 0)
  return saRet.Detach();

 // Create the safe-array...
 saRet.CreateOneDim(VT_VARIANT, m_pCallBack->m_pRunTime->GetMainView()->m_pMarketData->m_dwDataNumber+1);
 
 // Initialize it with values...
 long lArrayIndex[1];
 for(UINT i = 0; i <= m_pCallBack->m_pRunTime->GetMainView()->m_pMarketData->m_dwDataNumber; i++)
 {
  int nIndex = i * m_pCallBack->m_pExp->m_nLineNum + nLineIndex;
  if(nIndex >= (int)m_pCallBack->m_pExp->m_arLineData.size())
  {
   return saRet.Detach();
  }

  lArrayIndex[0] = i;
  if(m_pCallBack->m_pExp->m_arLineData.m_pData[nIndex].m_bInvalid)
  {
   _variant_t vt(m_pCallBack->m_pExp->m_arLineData.m_pData[nIndex].m_dblVal);
   saRet.PutElement(lArrayIndex, &vt);
  }
  else
  {
   _variant_t vt(g_fInvalid);
   saRet.PutElement(lArrayIndex, &vt);
  }
 }
 
 // Return the safe-array encapsulated in a VARIANT...
 VARIANT vt = saRet.Detach();
 return vt;
}

 VARIANT varColInfo[3];
//初始化 VARIANTs
for (int m = 0; m < 3; m++)
VariantInit(&varColInfo[m]);

// 每一列
varColInfo[0].vt = VT_UI4;
varColInfo[0].lVal = 1;

varColInfo[1].vt = VT_UI4;
varColInfo[1].lVal = 2;

COleSafeArray sa;
//创造一维
//用varColInfo初始化
sa.CreateOneDim(VT_VARIANT, 2, varColInfo);

 // 返回
 VARIANT vt = sa.Detach();
 return vt;