on error goto?

Module Module1
    Sub Main()
        Dim number3 As Double
        Dim number1, number2 As Integer
        On Error GoTo error1
        number1 = 10
        number2 = 0
        number3 = number1 / number2
        Console.Write(number3)
        Console.ReadLine()
        Exit Sub
error1:
        Console.Write("Exist one Error")
        Console.ReadLine()
    End Sub
End Module