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)

pcbpinoy, then, perhaps, would be correct this:

If InStr(s, "AB") > 0 And InStr(s, "CD") > 0 Then

instead of

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