Ciao.
funzione:
codice:Private Function Parola(NomeFile As String, UltimeLettere As Integer) As String Dim s As String Dim f As Integer f = FreeFile Open NomeFile For Input As f s = Right(Input(LOF(f), f), UltimeLettere) Close f Parola = s End Function
esempio:
Ciao.codice:Private Sub Command1_Click() Text1 = Parola("C:\prova.txt", 8) End Sub