VB Code:
  1. Option Explicit
  2.  
  3. Public Sub Main()
  4.   Dim x as Integer
  5.  
  6.   On Error Resume Next
  7.  
  8.   x = x / 0
  9. End Sub