aşağıdaki kod işinize yarayabilir

Function RegExpOr()

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

istenmeyen = "TURBANG-ENZİM"



Dim RegEx As Object

Set RegEx = CreateObject("VBScript.RegExp")

With RegEx

    .IgnoreCase = True

    .Global = True

    .MultiLine = True

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

    

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

End With





End Function