----------------------------
Public Sub main()
Dim FileNum As Integer
FileNum = FreeFile
Open "c:\Test.txt" For Append As FileNum
Write #FileNum, "Eintrag"
Close FileNum
End Sub
----------------------------
Wenn er damit nicht schreiben will, dann ist er vielleicht Analphabet
