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:

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