Please use VBA to solve.

Create a user-defined function to solve for a bond's price using a FOR loop to discount cash flows. The price (PV) of a bond is the present value of all of its future cash flows. We can use a FOR loop to discount all coupon payments: We can use the following formula: 1 1 XCRX Par X CRX Par - XCRX Par Par m m m PV bond + +. + + (1 +y/m) (1 + y/m) (1+y/m) (1 + y/mmt . Where: CR denotes the coupon rate (annual rate) y denotes the bond's yield T denotes the number of years to the bond's maturity date (i.e., redemption) Par denotes the par value (face value) of the bond m denotes the coupon payment frequency