Autofilter More Than 2 Criteria On Strings With Wildcard

I am trying to autofilter more than 2 criteria, for example 3 criteria.

Below code works fine as the criteria are exact match strings

VB:
ActiveSheet.Range("$A$1:$O$25").AutoFilter Field:=7, Criteria1:=Array( _
"=apple", "=orange", "=grape"), Operator:=xlFilterValues

However below code does not work when the criteria are strings with wildcard "*"

VB:
ActiveSheet.Range("$A$1:$O$25").AutoFilter Field:=7, Criteria1:=Array( _
"=*apple*", "=*orange*", "=*grape*"), Operator:=xlFilterValues

I need a wildcard * indicating strings contains instead of exact match the criteria.

Data looks like this

Fruits
apple, orange, peach
orange, strawberry
banana, peach
grape, peach

After autofilter, any rows that contains one of the criteria(in this case orange, apple, grape) will remain.