Aca Te Dejo Un Ejemplo Controlado 2 Errores... Si Tenes alguna Duda Avisa!! Tambien Te dejo El Link de
MSDN... Pegale una Leidita...
Código:
Private Sub Form_Load()
On Error GoTo Chequear_Errores
Dim Var1 As Integer
Dim Var2 As Integer
Dim Var3 As Byte
Var1 = 1000
Var2 = 0
MsgBox Var1 / Var2
Var3 = Var1
MsgBox "By agus0"
Exit Sub
Chequear_Errores:
If Err.Number = 11 Then '11 es El Numero de error de "Division Por 0"
Var2 = 2
Resume 'Se Usa Para Volver donde se Produjo el Error
ElseIf Err.Number = 6 Then 'Error 3 = Desbordamiento
Resume Next 'Se Utiliza para Omitir esa Linea y segur Con la Siguiente
End If
End Sub