'wenn Datei vorhanden SpeicherortDomus Auslesen START 
     mod_txtEinlesen.ReadEingabenTxTEinstellung ("" & Programmpfad & _
       "einstell.txt") 'Programmpfad z. B. C:/Programme/
 
        If ErrHandlerReadEingabenTxTEinstellung = 1 Then
            MsgBox "Konnte die Datei mit den Programm-Einstellungen nicht" & _
              "einlesen. "  
         End If
'wenn Datei vorhanden, Domus Pfad  Auslesen ENDE

Public Sub ReadEingabenTxTEinstellung(sFilename As String)
'zeilen einer txt einlesen
On Error GoTo zError
Dim i As Integer
 
Dim b() As String
Dim sInhalt As String
 
Dim f As Integer
f = FreeFile()
Open sFilename For Binary As #f
sInhalt = Space$(LOF(f))
Get #f, , sInhalt
Close #f
b = Split(sInhalt, vbCrLf)
 
SpeicherortWord = b(0)
 
SpeicherortDomus = b(1)
Exit Sub
 
zError:
 
ErrHandlerReadEingabenTxTEinstellung = 1
 
End Sub