Crear un exception en el codigo VB

[nolo41]

No seria eso exactamente lo que estoy buscando. La idea es un procedimiento que llama a otro, por ejemplo proc1 llama a proc2, y proc 1 tiene un ON ERROR para proteger el prg de errores de Runtimes. En el proc2 yo ejecuto algo que no me da un resultado esperado pero NO es un error de Runtime. Ahi yo quisiera provocar un error RUNTIME con una instruccion VB para que la ejecucion del programa se vaya al proc1 donde si yo tengo una rutina de error.

Ejemplo

proc1
on error go to rutinadeerror..
..
call proc2 ()
..
..
on error go to 0

: rutinadeerror
msgbox err.number
end sub


proc 2

open fichier
if status not = 0
'quisiera provocar un runtime error con un instruccion VB.
end if
..
..
..
end sub