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