Unbekannte Zahl aus String auslesen

ich möchte mit VBS aus einem Pfad eine unbekannte Zahl auslesen. Die Zahl ist immer 4-stellig und ist immer ein eigener Ordner.

z. B. C:\Test\1000\Unterordner => hier sollte ich die 1000 ermitteln

Es kann aber auch eine 0010 oder eine 0739 sein. Die Zahl ist einfach eine Nummer. Für die Weiterverarbeitung brauche ich immer die 4 Stellen.

Wenn die Zahl bekannt ist krieg ich das hin, aber wie mache ich es wenn die Zahl nicht bekannt ist?

Dass in dem Pfad eine 2. 4-stellige Zahl als Ordner vorkommt kann ausgeschlossen werden (nicht aber als Teil des Ordnernamens (z. B. Jahreszahl)).

Hat jemand eine Idee wie ich an das Thema herangehen könnte. Danke

Gruß Joni

Pfad = "C:\Test\1000\Unterordner"  
Set rE = New RegExp
rE.Pattern = "\\\d{4}\\"  
Set Matches = rE.Execute(Pfad)
Zahl = 0
For Each Match In Matches
    Zahl = Replace(Match.Value, "\", "")  
Next
WScript.Echo Zahl