Sub MAIN
ExtrasDokumentSchtzen .DokumentKennwort = "Lucifer", .KeineVorgabe = 0, .Art = 2
End Sub
