[RESOLVED] Vb6: check if textbox is free from more than one specific word

how to check if textbox is free from more than one specific word
for example" if text1 does not contain these words (demo test trial)

i have this code but i dont wana use it, i dont wana use something this
If InStr(Text1.Text, "demo") = False And InStr(Text1.Text, "test") = False And InStr(Text1.Text, "trial") = False Then MsgBox "free!"

it works but i need something
like this:
If InStr(Text1.Text, "demo + test + trial") = False Then MsgBox "free!"
plz help