RegEx: first number after a certain word

[Nelson78]

Hello everybody.
I have strings like these:

London1725
LondonMadrid
LondonMadrid2528
London5896Madrid7852

I need: first number after the string London but not after Madrid

So, wished results for each of the four strings above:

1725


5896

So, this is the starting point:

(\d+)

How can I develop the code?

Thank you in advance.

 

[6StringJazzer]

Here is the expression

London(\d+)

result is $1

Do you just need the RegEx expression, or the complete VBA code?

 

[JEC]

Function jec(cell As String) As Double
 With CreateObject("VBScript.RegExp")
   .Global = True
   .Pattern = "London(\d+)(.*)"
   jec = .Replace(cell, "$1")
 End With
End Function

 

[Nelson78]

I've built this way, but something's wrong:

Sub extract()

Dim lr As Long, fnd As Object, itm As Object

lr = Worksheets(1).Cells(Rows.Count, "A").End(xlUp).Row

    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "London(\d+)(.*)"
            For Each cell In Sheets(1).Range("A2:A" & lr)
                  Set fnd = .Execute(cell.Value)
                      For Each itm In fnd
                            cell.Offset(0, 1) = itm
                            Exit For
                      Next itm
            Next cell

    End With

Results:

start	result
London1725	London1725
LondonMadrid
LondonMadrid2528
London5896Madrid7852	London5896Madrid7852

I expect in B2 "1725" instead "London1725" and in B5 "5896" instead of "London5896Madrid7852".

 

[JEC]

You are not using the method I provided