Private Sub Command4_Click()
 
Dim sFile As String
sFile = SpeicherortDomus & "manuell.txt" 'SpeicherortDomus ist vorher definerirt
Call mod_dateiVorhanden.FileExists(sFile)
If FileExists = False Then
MsgBox "ist false"
End If
end sub

Public Function FileExists(ByVal sFile As String) As Boolean
'prüfen, ob datei vorhanden
  'Der Parameter sFile enthält den zu prüfenden Dateinamen
 
  Dim Size As Long
  On Local Error Resume Next
  Size = FileLen(sFile) 'orgi
  FileExists = (Err = 0)
  On Local Error GoTo 0
End Function