Dim sPath As String
sPath = App.Path & IIf(Right$(App.Path, 1) <> "\", "\", "")
If Dir$(sPath & "Datei.txt", vbNormal) = "" Then
  MsgBox "Save Datei nicht gefunden"
Else
  ...
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de