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