Use VPA for this

Subroutines are similar to functions, except they don't return one specific value. This subroutine will ask the user for input, manipulate it, and display the bottom hole pressure. Use the following to complete your code: f. Sub TestBHP) (Not all code here you will need to write variable declarations and a few lines of input) SurfPressure-cDbl (InputBox ("What is the Wellhead Pressure (psi)? ")) Sg-CDbl (InputBox ("What is the gas specific gravity (-)2")) GasBHP GasBHP f (SurfPressure, Sg, Depth, AvgTemp) MsgBox("The bottomhole pressure is "& str (GasBHP)&" psi. ") End Sub N.B.: In VBA, the CDbl function converts input into a Double. Run the subroutine by going to Developer, Macros. Choose TestBHP and run it. Use the following test data: Pwh = 2000 psi, Zav = 1.0, Tav = 140F, Sg = 0.65, Depth- 5000 ft. Snip the resulting dialog box and submit as Figure 2