[vb6] Prelevare lettere da un txt

[junx]

Ciao.

funzione:

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:

Private Sub Command1_Click()
    Text1 = Parola("C:\prova.txt", 8)
End Sub

Ciao.