Private Sub cmdKapat_Click()
    On Error GoTo Err_cmdKapat_Click


Exit_cmdKapat_Click:
    Exit Sub

Err_cmdKapat_Click:
    MsgBox Err.Description
    Resume Exit_cmdKapat_Click

End Sub


bunu nasıl genel hale getirebiliriz

On Error GoTo Err_cmdKapat_Click
......
Exit_cmdKapat_Click:
    Exit Sub

Err_cmdKapat_Click:
    MsgBox Err.Description
    Resume Exit_cmdKapat_Click


bu kısmı hangi kod arasına yapıştırsak çalışacak şekilde yazmalıyız