meinedaten
 
for i= 1 to meinedaten
 
hier mache ich etwas
 
.....
 
end-of-data:
 
next i
 
hierp passiert noch etwas......
 
Exit_meineFunktion:
on error goto 0
exit function
 
Err_meineFunktion:
if err.number=111 then
  'es soll bei end-of-data weitergehen
else
 'es hat keinen sinn mehr - weiter bei Exit_meineFunktion
endif

Visual Basic 6.0 Grundkenntnisse und ansonsten alles rund um AutoCAD