主题：自定义函数将行情数据传到VBS

Function SendToVBA(Formula,A2,A1,B2,B1,D1,D1,D3,D4,G1,G2,G3,G4,Open1,Close1,High1,Low1,StkLabel1,MarketLabel1)
    '这是从公式中传来的行情数据
    VBA_A2=A2
 VBA_A1=A1
 VBA_B2=B2
 VBA_B1=B1
 VBA_D1=D1
 VBA_D2=D2
 VBA_D3=D3
 VBA_D4=D4
 VBA_G1=G1
 VBA_G2=G2
 VBA_G3=G3
 VBA_G4=G4
 VBA_OPEN=Open1
 VBA_CLOSE=Close1
 VBA_HIGH=High1
 VBA_LOW=Low1
 VBA_StkLabel=STKLABEL1
 VBA_MARKETLABEL=MarketLabel1
 
 If VBA_A1=3 then   '如果是第3周期，执行开仓或平仓操作
  OpenOrder
 End if 
 
    SendToVBA=1
End Function

以上代码是自定义函数，目的是要将行情数据传到VBS后台，然后在后台实现开单、平仓等操作，可是VBS代码编译时出现：

编译器错误1041：名称重定义

请高手们帮我看看。

说明：VBA_A1,VBA_A2等是在VBS中定义的public型变量

是不是参数个数超过了限制呢？那么参数最多是多少个？