Metin İçinde İstenmeyen Metin Varsa Bulmak

Merhaba, bu kod da çalışıyor, sanırım ikiside benim işime yarayabilir.
çünkü tablodan gelen ek işlem verileri düzenli.
çok teşekkürler.

denemelerimde kısmi eşleşmelerde bile sonuçlar doğru geldi

Function RegExpOr()

ek_islemler = "koENZİM-HİDROFİL-TURBANG-AİRCO"

istenmeyen = "TURBANG-ENZİM"



ek_islemler = " " & Replace(ek_islemler, "-", " - ") & " "

istenmeyen = " " & Replace(istenmeyen, "-", " | ") & " "



Dim RegEx As Object

Set RegEx = CreateObject("VBScript.RegExp")

With RegEx

    .IgnoreCase = True

    .Global = True

    .Multiline = True

    .Pattern = "(" & istenmeyen & ")"

    If .Test(ek_islemler) = True Then MsgBox "veri var"

End With

End Function