try 'code Catch ex As Exception 'заношу в лог LogAddRow("Ошибка №" & err.number & " пояснение :" & ex.Message, ' а заношу типа me.NameMySub) End Try