per gli spazi basta che aggiungi un Trim:

codice:
s = Right(Input(LOF(f), f), UltimeLettere)
diventa:

codice:
s = Right(Trim(Input(LOF(f), f)), UltimeLettere)

il problema è che a me il file lo legge senza indugi...

boh..prova così, ma dovrebbe essere uguale...

codice:
Private Function Parola(NomeFile As String, UltimeLettere As Integer) As String
    Dim s As String
    Dim s2 As String
    Dim f As Integer
    
    f = FreeFile
    Open NomeFile For Input As f
        Do While Not EOF(f)
            Line Input #1, s
            s2 = s2 & s
        Loop
    Close f
    
    Parola = Right(Trim(s2), 8)
End Function