If Ucase(left(riga,3)) = "UNO" Then
Open "due.txt" For Append As #2 'Apre il file
Print #2, riga
Close #2
End If
Debug.Print riga
Loop
Close #1