Teilstring aus Dateinamen auslesen?

Hallo beisammen,
ich versuche zwei Makros zu programmieren, die folgende Informationen aus dem jeweils aktuellen Dateinamen herauslesen und in ein Word-Dokument einfügen:

nämlich „Aktenzeichen“ und „Dokumentennummer“.

Die Dateinamen sind dabei wie folgt aufgebaut:
10-24743-06_XYZMuc_58495.DOCX
Die Dokumentennummer ist: 58495
Das Aktenzeichen ist: 24743

Alternativ könnte es auch so sein:
Der Dateinamen ist wie folgt aufgebaut:
10-A III 24743-06_XYZMuc_58495.DOCX
Die Dokumentennummer ist: 58495
Das Aktenzeichen ist: A III 24743

In beiden Fällen steht die Dokumentennummer immer hinter dem zweiten Unterstrich und vor dem Punkt (wenn die Dateiendung überhaupt "vorhanden" ist)
In beiden Fällen steht also steht das Aktenzeichen immer zwischen den zwei Bindestrichen.

Folgenden Eigenheiten sind zu beachten:
in Abhängigkeit davon, welche Einstellungen der jeweilige Benutzer vorgenommen hat (bekannte Dateiendungen anzeigen. j/n) wird das DCOX als Dateiendung in der Variable Dateiname (Schnellbausteine – Feld) mit übergeben oder auch nicht. Es gibt auch einzelne Dokumente, die noch im Doc-Format vorliegen.

Die Länge (Anzahl der Zeichen) von Aktenzeichen und Dokumentennummer sind von Dokument zu Dokument unterschiedlich, wird aber mindestens 5 Zeichen umfassen, mit zunehmender Tendenz. Die mit einem „–“ von dem Aktenzeichen getrennten Ziffern (hier: 10 und 06) werden wohl zweistellig bleiben (könnten höchstens dreistellig werden; wenn das zu höherer Komplexität führen würde, können wir das auch so festlegen, dass die immer zweistellig bleiben) , wie auch die Bindestriche vor und dahinter wie auch das „_XYZMuc_“ sind irrelevant.

Im Alternativfall könnten anstelle von „A III“ auch stehen: A I, A II, A IV, A V oder WZ. Es ist aber sicher, dass das Aktenzeichen von zwei „–“ „umrahmt“ ist.

Ich denke an folgende Lösung, jedoch fehlen mir als VBA-Laie die richtigen Befehle/Operatoren


Nun meine ich schon zu wissen, das anstelle von instr zu verwenden ist:


Wie aber "gewinne" und belege ich die Variablen ersterBindestrich, zweiterBindestrich?
Für Hilfe jeder Art wäre ich sehr dankbar!

Set regex = CreateObject("vbscript.regexp")  
regex.IgnoreCase = True
regex.Pattern = "-([^\-]+)-.*_(\d{5,})"  
Set matches = regex.Execute(dateiname)
if matches.count > 0 then
    aktenzeichen = matches(0).Submatches(0)
    dokumentennummer = matches(0).Submatches(1)
End if

Aktenzeichen = Split(Dateiname, "-")(1)
Dokumentennummer = Split(Split(Dateiname, "_")(2), ".")(0)

Dokumentennummer = Split(DateinameOhneTyp, "_")(2)

DateinameOhneTyp = CreateObject("Scripting.FileSystemObject").GetBaseName(Dateiname)