AYUDA CON INPUTBOX

SI ALGUIEN CONOCE COMO LIMITAR UN INGRESO DE DATOS POR INPUTBOX QUE
CONTENGA SOLO UN DIGITO MAYOR QUE "0" Y MENOR QUE "9" PERO ESTA
LIMITACION SE DE EN LA VENTANA QUE DESPLEGA EL INPUTBOX, AUNQUE SE
PUEDA LIMITAR ESTO POR CODIGO COMO FORSE EN EL SIGUIENTE:

==

For Column = 0 To 13
Dato_alum = Val(InputBox("DIGITO N° " & 1 + Column & " DE
CODIGO", "CODIGO DEL ALUMNO"))
ActiveCell.Offset(0, Column).Value = Dato_alum


Do While ActiveCell.Offset(0, Column).Value >= 9
If ActiveCell.Offset(0, Column).Value >= 9 Then
MsgBox Prompt:="Debe de Ingresar CODIGO DE UN DIGITO ",
Title:="ERROR"

Dato_alum = Val(InputBox("DIGITO N° " & 1 + Column & " de
CODIGO", "CODIGO DEL ALUMNO"))
ActiveCell.Offset(0, Column).Value = Dato_alum

End If
Loop

Next Column
SI EXISTE OTRA MANERA DE LOGRAR ESTO HACIENDO QUE DIGITE SOLO UN DIGITO
EN INPUTBOX Y SE DETENGA EL CURSOR A PESAR DE QUE DIGITE MAS
NUMEROS???? PARA LUEGO LE DE "OK"

DE ANTE MANO AGRADESCO LA RESPUESTA

ATTE,
CARLOS