Private Sub Command1_Click()
    Eingabedatum = Now
    For i = 0 To File1.ListCount - 1
        Differenz = Abs(DateDiff("d", Eingabedatum, FileDateTime(File1.Path & _
          "\" & File1.List(i))))
        If i = 0 Then
            KleinsteDifferenz = Differenz
            FileID = 0
        End If
        If Differenz < KleinsteDifferenz Then
            KleinsteDifferenz = Differenz
            FileID = i
        End If
    Next
    MsgBox File1.List(FileID) & vbCrLf & "Dateidatum: " & FileDateTime( _
      File1.Path & "\" & File1.List(FileID)) & vbCrLf & "Differenz zum" & _
      "Eingabedatum (" & Format(Now, "dd.mm.yyyy") & ") in Tagen: " & _
      KleinsteDifferenz, , "Kleinste Datumsdifferenz"
End Sub

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...