主题：自定义一个取光标数值的函数 但是通不过

请教：我想自定义一个取光标数值的函数 但是通不过  请帮忙看看 谢谢
Function SYSPARAM(6)(Grid, Index, x, y)
SYSPARAM(6)=0
    '防止公式逐周期模式时调用
    If Formula.WorkMode = 0 Then
        Exit Function 
    End If
    
    dim Date
    dim Values
    call Grid.ValueByPoint(x,y,Date,Values,true)
    SYSPARAM(6)=Values
End Function