Advanced text search in textbox VBA/excel.

[Potatismannen]

Hi,

Tried searching the forum but came up with nothing quite like this.
I would like to get some help fetching text in a textbox. For example I'm trying to fetch from this input.

Input:
"Inventory as of today Potatoes 10 053 and there is even Carrots 591 001 to get. Mr. Beavers is getting 504 402 tomatoes"

Output:
A1 : Potatoes 10 053
A2 : Carrots 591 001
A3: Mr. Beavers 504 402

Is there any efficient way to fetch that part from the text?

Thanks.