Where: D L p AP A Water velocity inside a pipe is defined as 2 4ft p (1-1) is the pipe dimeter (m) is the pipe length (m) ft = A = 2 is the water density (kg/m) is the pressure (Pa) is pipe section area (m) Write VBA Subroutine to find the average velocity if the if the dimeter ranges between 0.04m and 0.06m, use 0.000132m increment. Display the result in a message box. Assume that: L-20m, p=1000 kg/m, e-20 m, AP2105 Pa, -8.9x10-4 Pa.sec. 22 PD Re= l 2 0.3086 69 logRe+(37) 3.7D V= 1.111 is the absolute roughness (um) is the water viscosity (Pa.sec) is the Reynolds number E l Re fi is the friction factor D