Public Sub Ein(strPfad As String, outList As ListBox, outLabel As Label, _
  outNumber As Label)
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FolderExists(strPfad) = False Then Exit Sub
 
Aktiv = True
countDateien = 0
outNumber = 0
 
Suchen strPfad, outList, outLabel, outNumber
' Hier die neue Anweisung
Suchlauf_Fertig
End Sub