Try this
Code:
StrFnd = "Display,E/monitor,E/port,Mouse,Keyboard,Case,Wide,Screen,Monitor,E-port"
StrFnd = StrFnd & ",display,e/monitor,e/port,mouse,keyboard,case,wide,screen,monitor,e-port"
and
Code:
If InStr(1, objMail.HTMLBody, wordToSearch, vbBinaryCompare) > 0 Then