salve a tutti,

i=0
flag=0
if (lungOggetto <> 0) or (lungMessaggio <> 0) then
do while (i <= LungOggetto)
i=i+1
OggettoParziale = OggettoParziale & mid(Oggetto,i,1)
NuovoOggetto = NuovoOggetto & "." & OggettoParziale
loop
else
flag=1
end if

il problema è che se la stringa fosse "ciao"

a me uscirebbe un output del tipo:

.c.ci.cia.ciao.ciao

ora io avrei bisogno che l'uotput invece fosse: c.i.a.o
In breve una lettera dopo ogni punto e soprattutto l'ultimo blocco non ripetuto perchè non capisco come mai ciao e ripetuto due volte come risolvo anche il problema del .c ossia che nella condizione do while mi contempla anche lo 0.

grazie mille!