Formel oder VBA - PLZ aus langem Text extrahieren

Hallo zusammen,

dies ist meine erste Anfrage, ich hoffe ich kann mein Anliegen gut beschreiben:

Ich erhalte monatlich eine Tabelle, Diese Tabelle beinhaltet in Spalte C eine wichtige Position. Daraus brauche ich die Postleitzahl in Spalte D. Diese PLZ benötige ich um später einen Link zu erstellen.
Leider ist manchmal auch eine Telefonnummer mit drin, so dass ich eine gefundene Matrix nicht anwenden kann, da es mir nur die Telefonnummer gesplittet und ausgeworfen hat.
Matrix

Bsp.: in Spalte C steht

Arbeitgeber<br>Vorname Nachnahme<br>Irgend-eine-Straße-4<br>23568 Lübeck<br>T: 0390 39999999999<br>Vorname.Nachname@arbeitgeber.de

Nun ist nicht jeder Text gleich lang und ich hab oft über 84 Städte als Vergleichswert.
die Formel: =TEIL(C2;SUCHEN(L2;C2;1);5) funktioniert, aber ich muss ja über 84 PLZ vergleichen, da endet meine Excel Kompetenz.

Ist eine Matrix (gern auch mit Button) möglich, die mir nur die PLZ ausgibt?
Oder auch eine Formel die mir die PLZ findet und ausgibt?

Sub PLZExtrahieren()
    Set regex = CreateObject("vbscript.regexp")    
    regex.IgnoreCase = True
    regex.Pattern = "\b(\d{5})\b"    
    
    With ActiveSheet
         for each cell in .Range("C2:C" & .Cells(Rows.Count, "C").End(xlUp).Row)  
             Set matches = regex.Execute(cell.Value)
             If matches.Count > 0 Then
                cell.Offset(0,1).Value = matches(0).submatches(0)
            End If
         Next
    End With
End Sub

=TEIL(TEIL(TEIL(C1;FINDEN("<";C1)+4;1000);FINDEN("<";TEIL(C1;FINDEN("<";C1)+4;1000))+4;1000);FINDEN("<";TEIL(TEIL(C1;FINDEN("<";C1)+4;1000);FINDEN("<";TEIL(C1;FINDEN("<";C1)+4;1000))+4;1000))+4;5)