Sub Main ()
    On Error GoTo ErrorHandler       ' Enable Error-handling routine.
    Dim x, y, z As Integer
    x = 50
    y = 0
    z = x / y                        ' Divide by ZERO Error Raises
    MsgBox z
    Exit Sub

    ErrorHandler:                    ' Error-handling routine.
    Select Case Err.Number           ' Evaluate Error number.
        Case 10                      ' Divide by zero Error
            MsgBox ("You attempted to divide by zero!")
        Case Else
            MsgBox "UNKNOWN ERROR  - Error# " & Err.Number & " : " & Err.Description
    End Select

    Resume Next 
End Sub