主题：能帮忙写个函数吗？

Function writetest(Formula,m,value)

    DataCount = UBound(M)
    If DataCount <> Formula.DataSize-1 Then
        Exit Function
    End If

    For i = 0 To Formula.DataSize-1
      document.WritePrivateProfileInt("aa", M(i),value , "C:\1.ini")
    NEXT
    readtest=0

End Function

Function readtest(Formula,m)
     '系统会在逐K线模式解释公式时的每个周期都会调用此函数一遍，因此设计时应该注重程序的执行效率，不要重复的执行一些没必要的代码
    DataCount = UBound(M)
    If DataCount <> Formula.DataSize-1 Then
        Exit Function
    End If

'定义一个计算返回的数组
    Dim ResultMa
    Redim ResultMa(DataCount)
    For i = 0 To Formula.DataSize-1
      ResultMa(i) =  document.GetPrivateProfileInt("aa", M(i),0 , "C:\1.ini")
    NEXT
    readtest=ResultMa

End Function

夜以继日地开发～～～～～这么晚还发贴！！！

这两个函数通不过啊

提示是：编译器错误 1044    调用过程（SUB）不能使用括号

正要用这两个函数

不懂VBA麻烦版主把这两个函数写好

先谢过