Uddrage postnummer i tekststreng

Hej,

Jeg forsøger at uddrage postnummeret fra nogle tekststrenge i et regneark. Stamdataene der skal uddrages fra er noget rod, så der skal tjekkes på 3 celler for hver række.

Et eksempel hvor postnummeret er i kolonne B:

A1 kan hedde:

*26/05*BREDGADEHUS

B1 kan hedde:

VALBY LANGGADE 234, 2500 VALBY

C1 kan hedde:

*FINN ANDERSEN- 33136351*

I D1 vil jeg gerne finde det første 4 cifrede tal i A1, hvis det findes. I E1 vil jeg gerne finde det første 4 cifrede tal i B1, og I F1 vil jeg gerne finde det første 4 cifrede tal i C1.

Dvs. at D1 vil være tom, E1 vil hedde 2500 og F1 3313.

Jeg har fundet følgende sp.mål:

http://www.eksperten.dk/spm/664981

som er meget lig mit. Jeg er førstegangsbruger af VBA, så det skal skæres ud i pap. Har forsøgt at indsætte koden fra ovenstående sp.mål i mit ark, men det ser underligt ud og jeg aner ikke hvorfor.

Mvh. Jakob