get_token word parse

Hi Guys.

Ive just added to the code archives this simple word token finder, i wonder if its possable to speed it up?

http://www.blitzbasic.com/codearcs/codearcs.php?code=2011

kev