Sub Fehler ()
  Dim A as byte, I as Long
  On Error Goto Fehler
 
  ' hier Code zur Verarbeitung?
  Get #1,I,A
 
  On Error Goto 0  ' Fehlebehandlung abschalten
  Exit Sub
 
Fehler:
  If Err.Number = 52 Then
    Err.Number = 0
 
    I=I+1
    Resume
  End If
End Sub

Gruß
Marcus