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

Sub test()
    Dim x As String
    With Range("a1", Range("a" & Rows.Count).End(xlUp))
        .NumberFormat = "@": x = .Address
        .Value = Evaluate("if(" & x & "<>"""",left(a1:a10000,find(""^""," & _
                    "substitute(a1:a10000&""11"",""1"",""^"",2))-1),"""")")
    End With
End Sub

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

Sub test()
Sheets("Sheet3").Activate
    Dim x As String
    With Range("b18", Range("b" & Rows.Count).End(xlUp))
        .NumberFormat = "@": x = .Address
        .Value = Evaluate("if(" & x & "<>"""",left(b18:a10000,find(""^""," & _
                    "substitute(b18:a10000&""11"",""1"",""^"",2))-1),"""")")
    End With
End Sub

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

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

OOps, should be

Sub test()
    Dim x As String
    With Range("b18", Range("b" & Rows.Count).End(xlUp))
        .NumberFormat = "@": x = .Address
        .Value = Evaluate("if(" & x & "<>"""",left(" & x & ",find(""^""," & _
                    "substitute(" & x & "&""11"",""1"",""^"",2))-1),"""")")
    End With
End Sub

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

You are welcome and thanks for the rep.