Saludos a todos...

Recurro a este foro (una vez mas) ya que se me acabaron las ideas, el cerebro no me pare más!

Quede pegado trabajando con archivos de texto, voy al grano:

Para leer datos en un archivo de texto hay varios metodos, el que estoy usando actualmente es algo así:

Set fs = CreateObject("Scripting.FileSystemObject")
'lo abro para lectura...
Set f = fs.OpenTextFile(App.Path & "archivo.dat", 1)

'busco dentro del archivo de texto (con extensión .dat) hasta que
'llegue al fin de archivo
Do While f.AtEndOfLine <> True
'a una variable le asigno cada registro que lea
'dentro del archivo de texto
strPag = f.ReadLine
'y lo escribo en un listview
Me.lstRes.ListItems.Add , , strPag
Loop

Para escribir en el archivo es algo similar:

'lo abro para escritura
Set f = fs.OpenTextFile(App.Path & "archivo.dat", 8)
'escribo una linea nueva dentro del archivo de texto
strPag = f.Write("Prueba")


Ahora, mi duda está en...ya leo,escribo, pero ¿Cómo elimino una linea completa del archivo de texto?
Si tengo, por ejemplo:

Reg1
Reg2
Reg3

y quiero borrar la linea Reg2....?????

No le puedo asignar un valor en blanco, ej. strPag = " " porque me quedaria la linea, en blanco, pero quedaria y me interesa borrarla...

Cualquier sugerencia er bienvenida, ya que el cerebro no me da....
Gracias de antemanos..un saludo a todos