Hola, pienso que algunas cosas de tu code por ejemplo:
+ los datos los almaceno en las variables asi, nunca he visto que se pueda hacer con Val(me.text1):
a = Text1.Text
b = Text2.text
...
+ Sacas el mayor comparandolos cada uno con el otro, algo asi:
If a > b then
Num_Mayor = a
Else
Num_Mayor = b
End If
Num_Mayor lo comparas con "c", "d" y "e".
+ Haces lo mismo para sacar el menor.
Recuerda que debes comparar los nuevos resultados varias veces unos con otros para sacar finalmente el unico resultado, debes tener cuidado cuando 2 numeros son iguales.
El promedio coges una nueva variable y la determinas asi:
promedio = (a+b+c+d+e)/5
Salu2
Autor