Private Sub Form_Load()
  Dim f As Long
 
  On Error GoTo Err_handler
  f = FreeFile
  'Diese Datei existiert definitiv nicht
  Open "C:\BLABLA.Txt" For Input As #f
  ' weiterer Code
Exit Sub: 'damit der ErrHandler normalerweise nicht angesprungen wird
 
Err_handler:
  Msbox "Datei existiert nicht"
  On Error GoTo 0
End Sub

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)