yapılanlar :
1 - referanslardan VBScript Regular Expressions x.x
VBA Editöründe( ALT+F11) iken menüden Tools / References … tıklanır. Açılan pencerede listeden Microsoft VBScript Regular Expressions seçilip OK tıklanır.
2 - çalışmaya yeni bir modül eklendi
3 - eklenen modüle aşağıdaki fonksiyon tanımlandı

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

4 - güncelleme sorgusu oluşturuldu
sorgu kodu:

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

dikkat ederseniz veriyi almak için kullanılan xBooking fonksiyonu sorguda çağrılıyor