write in VBA program

An experiment to find the modulus of Aluminum is repeated $3$ times. We want to write a program that reads the three modulus values from cells, $A2,B2$ and $C2$ and reports the average of the three to cell D$2.$

Upgrade the program so that the value that the average is calculated based only on the two closest values e$.$g$.$ If the three values are $70,80$ and $95$ you would discount the $95$ value $($consider it an outlier$)$ and calculate the average based on $\frac{70+80}{2}.$

Convert the program to a function and call the function from within excel.

Write a program to calculate the median of the $3$ numbers

Pseudo code for $1$

Declare variables as real numbers

Read the values from cells, $a2,b2,c2$

Calculate average $-2$ approaches $($worksheetfunction$.$average$())$ or $\frac{a+b+c}{3}$

Report the average to cell D$2$

Pseudo code for $2$

Declare variables as real numbers

Read the values from cells, a$2,$b$2,$c$2$

Find the absolute values of the difference between the permutations of the numbers e$.$g$.|a-b|,|a-|cl,|c-b|$

Calculate minimum of the differences $-($worksheetfunction$.$min$())$

If min$=|a-b|$ then

Average $=\frac{a+b}{2}$

Elself min$=|a-c|$ then

Average $=\frac{a+c}{2}$