Visual Basic 6 - Comprimere un *.txt in tutti i file *.rar

E poi apri un file sul canale B e lo leggi dal canale F (ovviamente sbagliando ...) ...

Non ho capito cosa tu voglia dire con il resto ...

E' meglio che tu faccia anche un esempio del contenuto del file che leggi ...

No, quel codice era sbagliato mi restituiva solo il numero di righe presenti, e non i nomi dei file che vi erano stati memorizzati, ho risolto cosi:

file = FreeFile
Open "C:\prova.txt" For Input As #file
sfile = Input(LOF(file), file)

Ora in questo modo la variabile "sfile" contiene il testo del file prova.txt dove ci sono i nomi dei file rar.
Ora pero questa variabile contiene il nome completo compresa l'estensione, e io dovrei toglierla.
Ho provato in questo modo

If InStr(1, sfile, ".rar") Then
sfile1 = Right(sfile, 4)

Pero non funziona, in quanto se provo a controllare il risultato tramite Msgbox, il valore sarà sempre lo stesso, Cioe i nomi dei file comprendenti l' estensione.
Come posso togliere quindi l'estensione RAR?

ho risolto grazie,
ho usato questo codice:

lfile = FreeFile

Open "C:\prova.txt" For Input As #lfile
sfile1 = Input(LOF(lfile), lfile)
If InStr(1, sfile1, ".rar") Then
sfile = Replace(sfile1, ".rar", "")

Poi ho continuato con il codice, la variabile sfile viene passata su un programma che mi sono fatto fare che li comprime.
Grazie comunque, siete stati gentili.