Private Sub Command1_Click() 'Startbutton
  Dim Dateien() As Datei
  Dim pfad As String
  StopSearch = False
  pfad = Text1.Text
  FindFile pfad, True, "*.*", Dateien
 
  ' Ergebnisliste in Form1.List1 ausgeben
  Form1.List1.Clear
  For I = 0 To UBound(Dateien)
    Form1.List1.AddItem Dateien(I).Pfadname & Dateien(I).Dateiname & " " & _
      Dateien(I).DateiGröße & " " & Dateien(I).LetzeÄnderung
  Next I
End Sub

Dateien(I).LetzeÄnderung

mit freundlichen Grüßen
Sven