On Error Goto 0

Este uso de la instrucción On Error, desactiva el manejador de errores que hubiera activado hasta el momento; de modo, que a no ser que activemos otro manejador, los errores que se produzcan a partir de esa línea, provocarán un error fatal, cancelando la ejecución del programa. Ver el Código fuente 367.

Public Sub Main()
On Error Goto ControlErrores
Dim iValor As Integer
Console.WriteLine("Introducir un número")
iValor = Console.ReadLine()
On Error Goto 0
Console.WriteLine("Introducir otro número")
iValor = Console.ReadLine()
Console.ReadLine()
Exit Sub
' ------------
' etiqueta de control de errores
ControlErrores:
Console.WriteLine("Error: {0} - {1}", Err.Number, Err.Description)
Console.ReadLine()
Resume Next
End Sub

Código fuente 367