Hi Ciccio_Drink,

To see the message, replace "xhorse" with "horse"

---
Regards,
Norman



"Norman Jones" wrote in message
...
Hi Ciccio_Drink,

Look at the InStr function in VBA help:

'=============
Public Sub Tester001()
Dim sStr As String

sStr = " A horse, my Kingdom for a horse"

If InStr(1, sStr, "xhorse", vbTextCompare) 0 Then _
MsgBox "substring found!"

End Sub
'<<=============


---
Regards,
Norman