function wraptext(ttw as string, xs as integer) f_r as string for a = 1 to len(ttw) if mid$(ttw,a) = " " sep = a endif if text width(left$(ttw, a)) > xs if sep = 0