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