sodele, weiter gehts mit Korrekturen in der formconfig (der dialog sollte auch angepasst werden mit Großbuchstaben):
If Me.CBJournal.Value Then
If GetINI(Dateipfad, "Journal", "SchließZeit", "-1") = "-1" Then
WriteINI Dateipfad, "Journal", "SchließZeit", Date +...