Visual Basic - Leer y escribir archivos .txt con VB6

Hola: me seria de gran ayuda algun ejemplo que me puedan tirar para leer desde Vb6 y escribir archivos .txt.
Tengo que hacer una aplicacion que una de las necesidades de la misma es pasar de una tabla de Acces una cantidad x de registros a un .txt para luego mailearla y viceversa, tomar una archivo txt con datos, leerlos y volcar la info a una tabla de Acces.
Muchas gracias x vuestra ayuda.

para leer:

declaras una variable en donde pones la ruta del archivo, por ejemplo:

Dim strRuta as String

y declaras otra variable en donde pones la linea que estas leyendo

Dim strLinea as String

strRuta = "C:\Ruta\Archivo.txt"

"con esto abres el archovo"
Open strRuta For Input As #1

"y con esto lees linea por linea"
Line Input #1, strLinea
"y finalmente con esto cierras el archivo"
Close # 1

"y esto es para que leas el archivo de principio a fin, linea por linea"

Do While Not EOF(1)
Line Input #1, strLinea

"aqui podras extraer los datos de la linea leida"

Loop
Close #1


lo siento pero para escribir a un archivo ya no te puedo decir, se me termino el tiempo

Como puedo pasar de línea en línea sin usar Do While? Es decir pasar cuando necesito a la línea siguiente o moverme dentro del archivo a líneas posteriores o anteriores.