Como podría manejar errores con InputBox?

Por ejemplo, tengo un code que si le da al boton Cancelar salta un error, o si le da a la X de cerrar lo mismo :S


Como podría evitarlo?


PD: que alguien conteste esto también!! xD

u.U nunca vi lo de on error resume next ni on error goto..

Y como se sabe que valor retorna una funcion? Como se comprueba?

on error resume next
 
Set objfso = Createobject("Scripting.filesystemobject")
objfso.copyfile "C:\Archivo_inexistente.txt", "D:\"
 
If err.number <> 0 then
 Msgbox err.number & vbnewline & err.description
 'Mostramos datos de error
 err.clear
 'Limpiamos valor de error
End if

Saludos

El "On error.." puede ir donde prefieras con eso le dices .. de aquí para abajo revisa los errores, por eso es frecuente ponerlo al principio, eso si .. puede que en ocasiones el resultado varie según este en un sitio u otro 

http://foro.elhacker.net/scripting/script_para_obtener_las_subcarpetas_de_las_subcarpetas_de_una_carpeta-t239878.0.html;msg1152917#msg1152917

Saludos

Ahora que lo pienso .. cuando di la respuesta debería de estar pensando en VB XD

La única posibilidad de este último es On error goto 0, y sirve para deshabilitar la revisión de errores.

Es decir .. tu con On error resume next los activas, y con On error goto 0 lo desactivas, así puedes tener un fragmento de code entre estos dos, y solo lo que esta en medio tiene habilitado esto, lo demás no.

Pseudocódigo:

codigo
mas codigo
'si da un error antes de esto, se "parte" el script
 
On error resume next
'a partir de aqui, cualquier error que surja pasalo por alto y sigue
se verifican errores
sigue a pesar de errores
On error Goto 0
 
'de aqui para abajo se vuelve a deshabilitar el tema de los errores
'si hay un error el script se "parte"
codigo
mas codigo

Saludos