Function xBooking(xVeri As String) As String

xBooking = ""

Dim regex As RegExp

Set regex = New RegExp

With regex

    .Pattern = "Booking No  .+)"

    .IgnoreCase = True

    .Multiline = True

    

Set eslesmeler = regex.Execute(xVeri)

For Each eslesme In eslesmeler

  If eslesme.SubMatches.Count > 0 Then

    For Each alteslesme In eslesme.SubMatches

          xBooking = alteslesme

    Next alteslesme

  End If

Next eslesme

End With

End Function

UPDATE Kont_Strg SET Kont_Strg.Bilgi = xBooking(İçindekiler);