n=len(variabile)
tr="":riga=0:frase=""
for i= 1 to n
tr=mid(variabile,i,1) 'Leggo un carattere alla volta
frase=frase+tr
If Asc(tr) = 10 Then
riga=riga+1
if riga=2 then exit sub 'frase contiene la frase della seconda linea
tr=""
frase=""
endif
next n