search for multiple words in a string

For example:

Sub pcbpinoy()
Dim s$
s = "CD_HJ_TY_AB"
If InStr(s, "AB") Then MsgBox "Found AB"
If InStr(s, "AB") And InStr(s, "CD") Then MsgBox "Found AB and CD"
End Sub

thanks a lot.. i was doing

s = "CD_HJ_TY_AB"
If (InStr(s, "AB") =1) And (InStr(s, "CD")=1)