questa fa schifo?

codice:
parola="IO LA PROVO LI"
array_parole=split(trim(parola)," ")
for each words in array_parole
testo=testo & ucase(left(words,1) & lcase(right(words,len(words)-1) & " "
next
non l'ho ancora testata ma forse funge