Private Sub Protocollspeicherncmd_Click()
Dim res As String
 
Call protokollspeichern.txt_appendline("C:\Nettest2\Protokoll.txt", "=== " & _
  Datum & " ===")
 
End Sub

Public Sub txt_appendline(Protokollname As String, _
  sLine As String)
 
  Dim F As Integer
  Dim aktuellDatum As Date
 
  Datum = Date
  sLine = "=== " & Datum & " ==="
  Protokollname = "C:\Nettest2\Protokoll.txt"
  ' Datei zum "Anhängen" von Daten öffnen
  ' und Textzeile ans Ende anfügen
  F = FreeFile
 
  Open Protokollname For Append As #F
  Print #F, sLine
  Close #F
End Sub

cu luli

Visual Basic ist immer Learning bei Doing. Blo? manchmal braucht man Hilfe.
Mit viel suchen findet man meist den Fehler. (vor allen bei anderen)