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