str$ = "a!===b=!=c"
sep$ = "=== != =! b =!="

while word$(sep$,i+1," ") <> ""
 i = i + 1
 theSep$ = word$(sep$,i," ")
 split$  = word$(str$,1,theSep$)
 print i;" ";split$;" Sep By: ";theSep$
wend