VBA 写MACD　[金字塔]

用vba写一个自定义函数，实现pel的MACD功能，不需要图表显示，只要调用，能够返回参数就可以了。

非常遗憾，没有把要求表达清楚。也就是说，我需要：

DIFF : =EMA(CLOSE,12) - EMA(CLOSE,26);
DEA  : =EMA(DIFF,9);
MACD := 2*(DIFF-DEA);

这个指标，如何用VBA语言来写出来？ （因为PEL语言有金字塔封装好的EMA函数，VBA里面没有）。我需要是用VBA语句，将MACD这个指标公式表达成一个函数、可以供主程序调用，比如：

 public MACD,DIFF,DEA

 SUB MACDMAIN

     ……

     ……

     MACD = ????

     DIFF =???

     DEA =???

END SUB