Tratamiento de errores erróneo?

   Ejecutando paso a paso el error me lo da cuando asigno a la variable num el valor millonario. Ahí sale el mensaje estandard de error y me marca esa instrucción en amarillo y termina la ejecución sin pasar por la etiqueta.Le he puesto Err.Clear al final de la etiqueta, pero no pasa por ella:

On Error GoTo etiq_error

Dim num As Integer
num = 1E+34

Exit Sub

etiq_error:

If err.Number = 6 Then
    MsgBox "ha habido un error de desbordamiento"
End If
err.Clear

End Sub

Responder	Página <12
Tweet