Another possible way of dealing with this would be to start with a null
string, and add your text word by word. After adding each word, check the
string width with FN Stringwidth (String$) until the result is >= the width of
the box. Then increment the linecount and strip off the last offending word
from the last line and use it to start the next.

You had better look out for supercalifragilisticexpialidocious though...

Regards 

Ian