Private Sub Form_Load()
blablabla 'нормальный код
On Error GoTo eRRoR ' ставлю для проверки работоспособности одного действия
blablabla
On Error Resume Next ' снимается отправка на обработку eRRoR и ставлю для переодически неработающих строк
blablabla
'вот сюда надо вставить снятие любого он еррор
blablabla ' нормальный код
end sub