Dim lFN       As Long
  Dim sLine     As String
  Dim dDate     As Date
 
  lFN = FreeFile
  Open App.Path & "Datei65.log" For Input As #lFN
  Do
    Line Input #lFN, sLine
    ' hier musst Du nun den Datumsteil der Zeile irgendwie
    ' extrahieren und dem Datum zuweisen
    dDate = sLine
    If dDate < Now - 60 Then
      ' nun nur noch mit dem Tagesdatum -60 vergleichen
      Debug.Print "Älter als 60 Tage: " & sLine
    End If
  Loop Until EOF(lFN)
  Close #lFN