主题：请高手指点往QQ发消息的问题

昨天检验，都通过了，下面掉用的函数又出现空值了，请帮忙看看。

IF BK_AG THEN
BEGIN
 extgbstringSet('QQSTR','买入，白银');
 BK_QQM1:QQMSGX(1,1);            / /这个值为空
END
IF BK_AU THEN
BEGIN
 extgbstringSet('QQSTR','买入，黄金');
 BK_QQM2:QQMSGX(1,2);            //这个值也为空
END

附：VBA的QQ调用“模块”-“Function”：

End Function

Function QQMSGX(Formula,QQNum,QQMSG)
    '系统会在逐K线模式解释公式时的每个周期都会调用此函数一遍，因此设计时应该注重程序的执行效率，不要重复的执行一些没必要的代码
   QQMSGX=0
   QQMSG=document.GetExtString("QQSTR")

  
   Set obj = CreateObject("WWSCommon.TCGroup")
   bq = " 交易系统信号发布 "
   mxmsg = bq &" " & Date &" " & Time & " 信号" & " " & QQMSG
   call obj.TransMessage("QQ群的名字??", mxmsg)                                  //这两个都是名字吧？？？还是号码？
   Set obj = Nothing 
  
   Set obj = CreateObject("WWSCommon.TCGroup")  
   call obj.TransMessage("个人QQ的名字？？", mxmsg)
   Set obj = Nothing 

End Function