[Loran_rus]

Замените For на

Код:

Select Case testexpression
   [Case expressionlist-n
      [statements-n]] . . .
   [Case Else
      [elsestatements-n]]
End Select

или уберите не нужный Евент из (EventCode = '1074' or EventCode = '1076')