¿Código Vb para encontrar la suma promedio de tres números?

¿Oscuro? uno,? b,? do,? Máx. ¿Como? Entero

¿Atenuado? ¿promedio? ¿Como? Dos veces

Máx. =?0

¿Respuesta? =?InputBox("Ingrese el primer número")

b? =?InputBox("Ingrese el segundo número")

c? =?InputBox("Ingrese el tercer número")

¿Promedio? =?(a?+?b?+?c)? /?三

¿Y si? ¿respuesta? >? Máx. Entonces

Máx. =?a

¿Fin? Si

¿Y si? ¿b? >? Máx. Entonces

Máx. =?b

¿Fin? Si

¿Y si? ¿do? >? Máx. Entonces

Máx. =?c

¿Fin? If

MsgBox("¿Cuál es el promedio?"?&?Promedio?&???¿Cuál es el valor máximo?"?&?Máximo)

¿Fin? Submarino