Mehrere txt Dateien nach einer Variablen durchsuchen VBS

Hallo Users,

habe folgendes Problem und habe bis jetzt noch keinen Lösungsansatz gefunden.

Ich habe einen Ordner mit ca.700 TXT Dateien.
Ich Möchte nun Prüfen in welchen Dateien ein gewisser WERT/Name/oder Zahl vorhanden ist ohne alle 700 Stück einzeln zu öffnen und zu durchsuchen.
Wenn der wert gefunden wird soll der Dateiname in eine neue txt geschrieben werden so das ich dann nur noch die Dateien öffnen muss in der der wert vorkommt.

Sprich 700 durchsuchen 30 mal wert gefunden
Ausgabe
Dateiname1
Dateiname2
.
bis
.
Dateiname30

Hoffe ihr versteht was ich meine weil ich komme irgendwie auf keinen grünen Zweig.


Danke schon mal

Set fso = CreateObject("Scripting.FileSystemObject")  
Quelle = "D:\Dein Ordner"  
Typ = LCase("txt")  
Ziel = "D:\Deine Liste.txt"  
Suchbegriff = "WERT"  

Set Ausgabe = fso.CreateTextFile(Ziel, True)
For Each File In fso.GetFolder(Quelle).Files
    If LCase(fso.GetExtensionName(File.Name)) = Typ Then
        Inhalt = fso.OpenTextFile(File).ReadAll
        If InStr(1, Inhalt, Suchbegriff, vbTextCompare) Then
            Ausgabe.WriteLine File.Name
        End If
    End If
Next
Ausgabe.Close
WScript.Echo "Fertig."