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]"

    .IgnoreCase = True

    

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