Help convert excel formula to VBA

I need help converting an excel formula to VBA. In just I cannot get the wildcard to work in VBA code (tried find, instr, match) but wildcards do not work. Can anyone help?

Formula is:

=IF(ISERROR(INDEX(‘[Option CodeLookup.xlsm]Mining’!$D$2:$D$2500,MATCH($B2&VALUE(MID($T2,SEARCH(“3???”,$T2,1),4)),'[Option Code Lookup.xlsm]Mining’!$A$2:$A$2500&'[Option Code Lookup.xlsm]Mining’!$C$2:$C$2500,0))),””, ?True?)