Visual Basic - Herramienta CASE

Alguien podría decirme como se escribe el código para que al entrar en una opción case, esta te mandé a un ciclo for. Es decir, si deseo recibir solo números del 0 al 7 como mando un mensaje de error cuando el usuario introduzca un 8 por ejemplo.?

En el evento Keypress :

If keyascii < 48 or keyascii > 55 then
msgbox "Error de tecleo, debe marcar del 0 al 7.", 16, "Aviso"

Si es éso lo que buscas, me alegraré.
Un saludo.

En el evento Keypres