Dim ErgDatei As New FileSystemObject
Dim tst_fts As TextStream
Dim Message As String
 
Message = "Hallo DU"
 
Set tst_fts = ErgDatei.OpenTextFile(App.Path & "\Hallo.txt", ForAppending, True)
    tst_fts.Write Message
    tst_fts.Close
 
Set ErgDatei = Nothing