Vba to extract number from string

Hi All
What code can i use to extract the number from the following string i.e.
Number 1....Result must be 1
Number 10..result must be 10

Please Login or Register  to view this content.

Hi mike7952

Thanks for your reply....So how do I implement your code...in this Code

Please Login or Register  to view this content.

Like this, change NoFound to NoFound as string

Please Login or Register  to view this content.

And please excuse my ignorance but where do i put your code?

EDIT: Not to worry Got it figured out....Thanks mike7952
Will make use of in future.

@ jindon
thanks for the link....Very helpful

EDIT:

What am i missing here....Feel a bit silly
Attached is sample file...Am trying to extract Number 2 from active cell

Hi mike7952

please have a look at Post7 when you get a gap.

Where and what do you want to do with the result?

Please Login or Register  to view this content.

That's it mike7952
I wanted to set NoFound to the value......thanks again.