Write a VBA-Excel program that calculates the vapor pressures for several pure components at different temperatures. Your program should read in the species names and the Antoine equation (which gives the vapor pressure as a function of temperature) constants from a worksheet. Your program should then output the vapor pressure of each species to a different worksheet over a temperature range of 0 to 100C in increments of 10C. Use arrays whenever possible.

Substance	A	B	C
Chloroform	6.90328	1163.03	227.4
Cyclohexane	6.84498	1203.526	222.863
Ethyl acetate	7.09808	1238.71	217.0
Methyl alcohol	7.87863	1473.11	230.0
n-Heptane	6.90240	1268.115	216.9

Antoine Equation Constants:

Antoine equation:

log₁₀p* = A B/(T+C)

p* in mm Hg, T in C