Extract & Copy a phone number from text

I have hundreds of rows in excel with lots of numbers in between, the only pattern there is that alsmost all cells have a 10 digit number. Is it possible to write some vba that will extract and paste 10 digit number on the cell next to it?


These would be some samples;

The number found on this customer's account is 8055555555 along with the account #...
The VM number on account 123465 was changed recently to 8661234567 due to an order error…
At 0800 we received another call from 2523691234 regarding account 123456.

There are multiple numbers in the text, on each row, but I need to only extract and copy to next cell the ones that are 10 digits.

Thanks!