Visual Basic - Tengo una pequeña y facil duda...

Y otra cosilla, tengo un inputbox que recoje un numero en una variable single, pero si metes una letra o nada, te da error y el programa se cuelga. Para solucionarlo, e puesto una variable string, pero luego como puedo hacer para que si no es un número haga algo?
Ejem:

WHILE TIEMPO no es igual a un número
TIEMPO = InputBox("Tienes que meter un número")
WEND

Puedes cambiar el inputbox por un formulario que lo simule, ya en TextBox puedes hacer varias validaciones para que nada mas te acepte números.

También puedes corregirlo asi..:

WHILE TIEMPO no es igual a un número
TIEMPO = InputBox("Tienes que meter un número")
WEND

Tiempo = ""
Do
Tiempo=InputBox("Tienes que meter un número")
If Val(Tiempo) <> 0 then
' es número, salte del bucle
Exit Do
else
' no es número, pon en blanco Tiempo
Tiempo=""
endif
Loop

No recuerdo bien la sintaxis y uso del Bucle Do...Loop, pero es solo una idea, ojalá te sirva, saludos.