sub ... (...) 
  ... 
  Open Datei For Input As #F 
  On Error GoTo errdat 
  While Not EOF(F) 
  ----Line Input #F, sInhalt 
  ----normaler Code zum Berechnen etc..... 
  Wend 
  Close #F 
  MsgBox ("Daten eingelesen!") 
  Exit Sub 
 
errdat: 
'MsgBox ("Allgemeiner Fehler! " + lRow + ". Zeile") 
end sub