Auswertung eines txt-Dateiinhaltes mit Excel

Hallo die Damen und Herren Spezialisten,

ich hoffe heute zum 3. Mal auf Eure geschätzte Hilfe...

Die gegebnene Fakten:

1. Ich habe mehrer txt-Dateien unterschiedlichen Datums in einem Ordner.
2. Die Dateinamen sind variabel - beginnen aber immer mit "SUCESS_" (Bsp: SUCCESS_20160322075527.txt).
3. Die Dateien enthalten Einträge (Zeilen) die immer mit den selben Buchstaben (MS) beginnen.

Was möchte ich:

Ich möchte (am liebsten) ein Makro in Excel, dass mir von allen Dateien mit aktuellem Datum in Spalte A den Dateinamen und daneben in Spalte B die Anzahl der in der Datein enthaltenen Zeilen die mit "MS" beginnen ausgibt - Bsp:

-------------------------- A ------------------------------------------------- B
SUCCESS_20160322075527.txt -------------------------- 12

Ich habe bereits Funktionen, die mir die Anzahl aktueller Dateien ermitteln - aber ich bekomme das nicht angepasst.

Dann habe ich folgendes, das mir aber jede Zeile zurückgibt (ich benötige aber nur die Anzahl):


Sub Anzahl_Verbuchte_ermitteln()

Dim sWord As String, sPath As String, sSearchPath As String, FileName As String, InputData
Dim AnzFound As Integer
Dim Anzahl As String
AnzFound = 0


'Wort nach dem gesucht werden soll

sWord = "MSCONS_"


'Suche nach allen Textdateien im Verzeichnis

sSearchPath = ""C:\Beispiel\SUCCESS_*.txt"
sPath = "C:\Beispiel\"
FileName = Dir(sSearchPath)
If FileName <> "" Then
Do While FileName <> ""
Open sPath & FileName For Input As #1
Do While Not EOF(1)
Line Input #1, InputData
If InStr(1, InputData, sWord) > 0 Then


'Zeile mit Suchwort gefunden
AnzFound = AnzFound + 1
Sheets("Verbuchung").Cells(AnzFound, 1) = FileName
Sheets("Verbuchung").Cells(AnzFound, 2) = InputData

End If
Loop
Close #1


'nächste Datei
FileName = Dir
Loop
End If
End Sub

Ich bin etwas verzweifelt und gespannt, ob meine Idee umsetzbar / anpassbar ist.

Gruß
Olli