Lame Programming

[simonm]

Option Explicit
 
Public Sub Main()
  Dim x As Integer
  Dim y As Long
 
  On Error Resume Next
 
  x = x / 0
 
  If Err Then
    y = 40000
  End If
 
  if x > 0 then Msgbox "There is something wrong with your calculation!"
 
End Sub