Buenas...
Bueno, el inputbox no devuelve valores como lo hace el msgbox , funciona un tanto distinto.

• Si se ingresa texto y se presiona Aceptar, devuelve el texto ingresado
• Si se ingresa o no cualquier cosa, y se preciona Cancelar, entonces devuelve una cadena vacía ---> ""
• Si el valor que se ingresa es nulo, es decir, no se escribe nada, y se presiona Aceptar, también devuelve lo mismo que el anterior

Si tienes el inputbox en un bucle, entonces deberías de verificar que lo que se ingresa sea distinto de "", si es igual, se termina (ten en cuenta que con el Aceptar vació también ocurrirá), y de lo contrario, sigue 
Un ejemplo 

Do
opcion = inputbox("Seleccione alguna opcion" & chr(13) & chr(13) & "1 - Masculino" & _
	chr(13) & "2 - Femenino" & chr(13) & "3 - Ninguna XD","Opciones","")
Select case opcion
	Case "1"
	msgbox "Eres hombre"
	Exit do
	Case "2"
	msgbox "Eres mujer"
	Exit do
	Case "3"
	msgbox "Eres.....mmm"
	Case ""
	msgbox "Ha cancelado o bien, ha ingresado un valor nulo"
	Exit do
	Case else
	msgbox "La opcion seleccionada no es válida"
End Select
Loop

Saludos 

No puedes impedir que se ingresen letras, pero si puedes verificar luego que lo ingresado no lo sea 

valor = inputbox("Ingrese un valor","Completar","")
msgbox isnumeric(valor)

Saludos 

P.D: con el code anterior también puedes filtrar esto ---> Case else