A ver si este ejemplo pruede valer:
Código:
sub probatina()
Mensaje = "¿Cuál es el dinero disponible en este momento?"
Título = "CUENTA"
pregunta:
respuesta = InputBox(Mensaje, Título)
Do While respuesta = "" Or Not IsNumeric(respuesta)
MsgBox ("Debe introducir un número")
GoTo pregunta
Loop
Range("C1") = respuesta
end sub