Private Sub Testiculo_Click()
On Error GoTo XErro
A = 1/0 ' Aqui tens um erro com certeza
.
.
On Error GoTo 0 ' Tens que ao final tirar a condição de erro senão pgm pira
exit sub
XErro:
Msgbox("erro de divisão por zero, teste")
On Error GoTo 0 ' Tens que ao final tirar a condição de erro senão pgm pira
end sub
