Cuenta la longitud de las palabras de un parrafo en power builder

string as_cadena,as_vacio,ghh,cad

long cont=0,auxi,longitud

as_cadena=mle_1.text

as_vacio=" "

DO WHILE POS(as_cadena,as_vacio)<>0

longitud=len(as_cadena)

auxi=pos(as_cadena,as_vacio)

cad=mid(as_cadena,1,(auxi - 1))

messagebox("",cad)

lb_1.additem(cad+" --> "+string(auxi - 1))

as_cadena=mid(as_cadena,(auxi + 1),(longitud))

messagebox("",as_cadena)

loop

longitud=len(as_cadena)

lb_1.additem(as_cadena+" --> "+string(longitud))