VBA中引用公式结果，没有成功　[金字塔]

我写了个自定义函数,调用PEL里的公式中的公式线10s在第1根K线的结果

Function CY_5s_CAL(Formula,x10s,x15s,x20s)
    If Formula.WorkMode = 1 then
        Exit Function
    End If

    CY_5s_CAL=0
    Application.msgout(formula.DataSize)
    Application.msgout(formula.GetBufDataByIndex(1,1))

    Application.msgout(formula.GetBufData("10s",1))
    CY_5s_CAL=50
End Function

我觉得应该逐K显示10s在第1根K线的结果，目前程序没报错，但显示为0，请指教

这个知道了，IndexData