Public Function SearchFiles(Path As String, FileTyp As String, Optional _
  SearchSubFolder As Boolean) As Collection
Form1.Show
Set SearchFiles = New Collection
 
  Dim i As Integer
  FindFile Path, SearchSubFolder, FileTyp, Dateien
 
  For i = 0 To UBound(Dateien)
    SearchFiles.Add Dateien(i).Pfadname & Dateien(i).Dateiname
  Next i
Unload Form1
End Function

  For i = 0 To UBound(Dateien)
    SearchFiles.Add Dateien(i).Pfadname & Dateien(i).Dateiname
  Next i