Macro to delete all characters after the second number 1 in specific cell

Hi. I extract data from a internal application into excel. In one of the cell it give me all the possibilities from the application.
I have found out of what data and rule i need to keep the right result in the cell.
I need to delete all characters before the second number 1 in the cell.
I have tried but so far no success. I need a macro because this is a part of other macros to put the data in order,

Example. 1-91456211-1212 have to be 1-9
10-49145245 to be 10-49
100-249145875 can be more numbers. have to be 100-249
and also text. Unknown/ answer1 in this case it have to be unknown/answers. only in this case when this text are its before the first number one

Please have a look
Thanks in advance

Abjac

Try

Please Login or Register  to view this content.

Hi Jindon and also special-k. Jindon i tried your code on this string . Its in special cell not a range cell B18
this was the string.
10-491-910-4950-99100-249250-499500+Unknown/No answer1-910-4950-99100-249250-499500+Unknown/No answer
it left only answer back but the answer should be 10-49
I change your code to

Please Login or Register  to view this content.

Special - K maybe its my missing knowledge but how do i use this public function
Abjac

OOps, should be

Please Login or Register  to view this content.

This is some real strings and it only have to be in one cell B18

10-491-910-4950-99100-249250-499500+Unknown/No answer1-910-4950-99100-249250-499500+Unknown/No answer result have to be 10-49
1-910-4950-99100-249250-499500+Unknown/No answer1-910-4950-99100-249250-499500+Unknown/No answer result have to be 1-9
This is the number rule
then one example with the text here only before the first number 1.
Unknown/No answer14950-99100-249250-499500+Unknown/No answer1-910-4950-99100-2 result have to be Unknown/No answer
This is the number rule

But the strings can be various,

macro will be the best for me.
sincerely Abjac

Hi Jindon.
Tried your last code it works like a charm . Thanks alot just great
sincerely
Abjac

You are welcome and thanks for the rep.