Function xBooking(xVeri As String) As String

xBooking = ""

Dim regex As RegExp

Set regex = New RegExp

With regex

    .Pattern = "Booking No  :  (.+[^ \t\r\n\v\f])" '[^ \t\r\n\v\f] yerine \S de yazılabilir ===>  "Booking No  :  (.+\S)" gibi 

    .IgnoreCase = True

    .Multiline = False

    

Set eslesmeler = regex.Execute(xVeri)

For Each eslesme In eslesmeler

  If eslesme.SubMatches.Count > 0 Then

    For Each alteslesme In eslesme.SubMatches

          xBooking = Trim(alteslesme)

    Next alteslesme

  End If

Next eslesme

End With

End Function