How do I write the given equation in VBA code.

The rate of change of the displacement (y) of a structure for a damped oscillation is defined by the following equation y = -9e^-kt[omega sin(omega t) + k cos(omega t)] where k = 0.7 and omega = 4. (a) Write a VBA function that calculates the change in displacement. The rate of change of the displacement (y) of a structure for a damped oscillation is defined by the following equation y = -9e^-kt[omega sin(omega t) + k cos(omega t)] where k = 0.7 and omega = 4. (a) Write a VBA function that calculates the change in displacement