Dim sFile As String
  Dim sFileNew As String
  Dim sLine As String
  Dim sDate As Date
  Dim F As Integer
  Dim N As Integer
 
  <font color=green>' Datum für den Vergleich</font>
  sDate = Format$(DateAdd("d", -30, Now), "dd.mm.yyyy")
 
  <font color=green>' Originaldatei zum Lesen öffnen</font>
  sFile = "DeienDatei.txt"
  F = FreeFile: Open sFile For Input As #F
 
  <font color=green>' Neue Datei zum Schreiben erstellen</font>
  sFileNew = "NeueDatei.txt"
  N = FreeFile: Open sFileNew For Output As #N
 
  <font color=green>' Inhalt einlesen</font>
  While Not EOF(F)
    Line Input #F, sLine
 
    <font color=green>' Datumvergleich</font>
    If CDate(sLine) >= CDate(sDate) Then
      <font color=green>' noch nicht älter als sDate</font>
      Print #N, sLine
    End If
  Wend
 
  <font color=green>' Dateien schließen</font>
  Close #F: Close #N
 
  <font color=green>' Originaldatei löschen</font>
  Kill sFile
 
  <font color=green>' Neue Datei in Originaldatei umbenennen</font>
  Name sFileNew As sFile