Hi. I need help to write the following three VBA functions. The second picture shows how it has to look like in the end.

Thank you

Build the following three VBA functions 1. GGM (Gordon Growth Model, Inputs: Div1, R, g) Stock Value, Po = Div1 R - g 2. CATCHUP (Inputs: p1, p2, r1, r2) In P2 Years to catchup = In 1+r1 1+r2 3. PStdev (Portfolio Standard Deviation, Expandable) (Pi, ri as inputs, an expandable model can have more than 5 rows) Economy Probability High Tech Return (i) (P;) (ior [HT) fHT= . 1X-.27+.2x-.07+.4x.15+.2x.30+.1x.45 = 12.4% PStdev(o) = Recession 10% -27% THT = 0.124 E( - F)2 X Pi Below 20% -7% O=, Average [ (HT - FAT ) - XP, Average 40% 15% (-0.27-0.124)?(0.1) + (-0.07-0.124)(0.2) 71/2 where Above 20% 30% HighTech = +(0.15-0.124)(0.4) + (0.30-0.124)(0.2) r = Zi=1 Piri Average +(0.45-0.124)?(0.1) Boom 10% 45% HT = V0.040144 = 20.04%Your completed VBA model should look like the one below. A B C D 2 GGM Dividend one year from now (Div1) $ 2.00 3 R (cost of equity) 10% 4 g (growth rate of dividends) 4% 5 6 Stock Value Today (PO) 33.33 =C2/(C3-C4) 7 Stock Value Today (PO) (Your Function) 33.33 =GGM(C2,C3,C4) 8 9 CATCHUP p1 (sales of WMT) 514,405 10 p2 (sales of AMZN) 280,522 11 r1 (growth rate of WMT sales) 2.90% 12 r2 (growth rate of AMZN sales) 20.45% 13 14 Years to Catchup 3.85 =LN(C10/C9)/LN((1+C11)/(1+C12)) 15 Years to catchup 3.85 =CATCHUP(C9,C10,C11,C12) 16 17 Portfolio STDEV Probability Value 18 10% -27.00% 19 20% -7.00% 20 10% 15.00% 21 20% 30.00% 22 10% 45.00% 23 24 Expected Value (r hat) 12.40% =B18*C18+B19*C19+B20*C20+B21*C21+B22*C22 25 Portfolio Standard Deviation (Calculation) 20.04% =SQRT((B18*(C24-C18)^2)+(B19*(C24-C19)^2)+(B20*(C24-C20)^2)+(B21*(C24-C21)^2)+(B22*(C24-C22)^2)) 26 Portfolio Standard Deviation (Your Function) 20.04% =PStdev(B18:B22,C18:C22) Upload both HW files when you are done