Muchas gracias y muy completo 
Sin embargo, tengo dudas con el segundo código, ya que hago esto:
Y me sale el errorcito número once y lo de división por cero, y no el mensaje de error que quiero que salga.
Saludos y gracias!

Sin embargo, tengo dudas con el segundo código, ya que hago esto:
Código (vb) [Seleccionar]
Private Sub Form_Load()
Dim a As Integer
a = 1 / 0
If Err.Number = 11 Then
MsgBox "error"
End If
End Sub
Y me sale el errorcito número once y lo de división por cero, y no el mensaje de error que quiero que salga.
Saludos y gracias!