Excel VBA编译错误:期望的子、函数或属性。

I am getting a compile error in Excel VBA which says Expected Sub, Function or Property. The function I am using is given below which is trying to copy the rate function in Excel. Thanks for your help.I am getting a compile error in Excel VBA which