Hola Necesito una ayuda con el sigueinte script.

Dim  x,y,n,m,r,nu,n1,n2,n3,n4,n5,m1,m2,m3,m4,m5,result
 
num=inputbox("Digente el Numero de la Operacion que Desea Realizar:                                                                                                                                                  1. Encontrar el valor de Y                                      2. Promedio de un Estudiante                                 3. Salir")
 
select case num
 
case "1"
x=inputbox("Ingrese el valor de X")
 
x=cint(x)
y=log(x+30) / 20
msgbox("El Valor de Y es: " & y )
 
 
case "2"
 
m1=inputbox("Nombre de la 1°materia")
nu1=inputbox(" Nota de " & m1)
 
if nu1>100 then
msgbox "Ingrese un valor entre 0 - 100", vbAbort, "Erro de Validacion"
else
nu=msgbox("Desea Salir")
end if
 
m2=inputbox("Nombre de la 2°materia")
nu2=inputbox(" Nota de " & m2 )
 
if nu2>100 then
msgbox "Ingrese un valor entre 0 - 100", vbexclamation, "Erro de Validacion"
else
msgbox("Usted esta saliendo del Programa")
end if
 
m3=inputbox("Nombre de la 3°materia")
nu3=inputbox(" Nota de " & m3 )
 
if nu3>100 then
msgbox "Ingrese un valor entre 0 - 100", vbexclamation, "Erro de Validacion"
else
msgbox("Usted esta saliendo del Programa")
end if
 
m4=inputbox("Nombre de la 4°materia")
nu4=inputbox(" Nota de " & m4 )
 
if nu4>100 then
msgbox "Ingrese un valor entre 0 - 100", vbexclamation, "Erro de Validacion"
else
msgbox("Usted esta saliendo del Programa")
end if
 
m5=inputbox("Nombre de la 5°materia")
nu5=inputbox(" Nota de " & m5 )
 
if nu5>100 then
msgbox "Ingrese un valor entre 0 - 100", vbexclamation, "Erro de Validacion"
else
msgbox("Usted esta saliendo del Programa")
end if
 
 
nu1=cint(nu1)
nu2=cint(nu2)
nu3=cint(nu3)
nu4=cint(nu4)
nu5=cint(nu5)
nu=nu1+nu2+nu3+nu4+nu5
result=nu/5
if result>100 then
msgbox "Ingrese un valor entre 0 - 100", vbexclamation, "Erro de Validacion"
else
msgbox("Usted esta saliendo del Programa")
end if
msgbox("El promedio es: " & result )
 
re="Reprobado"
de="Deficiente"
bu="Bueno"
mbu="Muy Bueno"
exc="Exelente"
 
if result<=59 then
msgbox("El Alumno esta: "  & re )
else
if result>=60 and result<=69 then
msgbox("El alumno esta: " & de )
else
if result>=70 and result<=79 then
msgbox("El Alumno esta: " & bu )
else
if result>=80 and result<=89 then
msgbox("El Alumno esta: " & mbu )
else
if result>=90 and result <= 100 then
msgbox("El Alumno esta: " & exc )
end if
end if
end if
end if
end if
 
 
if nu1<59 then
msgbox("El Alumno Reprobo " & m1)
else
msgbox("El Alumno Aprobo " & m1)
end if
 
if nu2<59 then
msgbox("El Alumno Reprobo " & m2)
else
msgbox("El Alumno Aprobo " & m2)
end if
 
if nu3<59 then
msgbox("El Alumno Reprobo " & m3)
else
msgbox("El Alumno Aprobo " & m3)
end if
 
if nu4<59 then
msgbox("El Alumno Reprobo " & m4)
else
msgbox("El Alumno Aprobo " & m4)
end if
 
if nu5<59 then
msgbox("El Alumno Reprobo " & m5)
else
msgbox("El Alumno Aprobo " & m5)
end if
 
 
case "3"
 
 
msgbox"Usted esta saliendo del Programa", vbexclamation
 
end select

Quiero que haga lo sigueinte:

1. Cuando se ingrese una Nota con Valor Mayor a 100 El programa mande una alvertencia de que la nota es Invalida y ya no continue, con el ingreso de la siguiente nota y a si sucesivamente.

Agradecesiria que me indicaran el error en el codigo del case 2 que es para calcular el promedio de 5 notas, para poder solucionarlo.

Gracias.

Mod: Los códigos deben ir en etiquetas GeSHi