[VB6] Eliminare righe vuote in coda a un file di testo

[Mabi]

Il ragionamento è giusto se si tratta del carattere vbCrLf:

Var = "abc" & vbCrLf

Var = StrReverse(Var)
Var = Replace(Var, vbLf, "")
Var = Replace(Var, vbCr, "")
Var = StrReverse(Var)

Se però, come hai riportato, il risultato non è quello voluto, potresti controllare "manualmente" di cosa si tratta:

MsgBox CStr(Asc(Mid(StrReverse(Var), 1, 1)))
MsgBox CStr(Asc(Mid(StrReverse(Var), 2, 1)))

Insomma, dipende da come ottieni quelle due righe (se sono righe)