Live interactive example $1$: Find the average of three numbers

Write a VBA program to calculate the average of three numbers. The three numbers should be input via an input box and the result should be displayed in a message box. The result should also be reported within the excel worksheet in cell $[$a$2].$ Declare all variables as real numbers.

Write a function to calculate the average of three numbers