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

[LoRdCoStE]

Come da titolo ho una variabile contenente testo e devo eliminare le righe vuote presenti alla fine. (dopo devo scrivere la riga in un file).

come posso fare?
avevo pensato una cosa del genere:

var = StrReverse(var)
var = Replace(var, vbCrLf, vbNullString, 1, 2)
var = StrReverse(var)

(le righe in fondo dovrebbero essere due (me ne accorgo uan volta scritot il file).

oltre a vbCrLf ho provato con vbCr vbLf

Fatemi sapere se qualcuno di voi sa come risolvere.
grazie a tutti ciao