Extract first 4 digits in excel string without using VBA

I am trying to extract the first 4 digits within an excel string that have varying entry lengths/formats. I am looking for a formula based solution to achieve this result and would like to not use a VBA. Here are some example cell values:

Pro $1,000
Extra Pro $2,700-45% Freeze
Platinum.500.50.1000

Desired results:
1000
2700
0500 - If 500 is the only achievable answer, that will work as well

Here is the formula that I am using, which extracts every single number instead of the first 4:

Please Login or Register  to view this content.

The above formula produces:
1000
270045
500501000

Any help is appreciated!

Thank you for the response Alkey! The examples I gave work perfectly with the formula provided, but I am having some issues with other cell strings including:

BL 1000-30-55% Orange (the formula provided a #VALUE! error)
BL Hatch. 4550-40% Silver (the formula provided a #VALUE! error)

Do you know why the formula would provide an error even though there are 4 digits?

try this

Formula:

Please Login or Register  to view this content.

with Control+Shift+Enter

Thank you sandy666! The formula provided works great with my most recent post, but it does not work with this example since its only first 3 digits instead of 4:

Platinum.500.50.1000 (Formula provides an answer of 5005 instead of 500)

so use AlKey's formula

Thank you both, AlKey and sandy666! both you helped solve my question, much appreciated!

You are welcome, thanks for rep