Visual Basic - Leer un archivo texto

Tengo un archivo texto (*.txt), el cual deseo leer para grabar la información en un archivo manejador de base de datos.

Aquí tienes el código necesario para leer todo el archivo txt de una sola pasada, si deseas leerlo por cada línea debes de hacer un bucle hasta llegar al final y leer cada linea con la orden ReadLine en vez de ReadAll

Dim tx as string
Set tfr = fs.OpenTextFile("Nombre del fichero.txt", 1, 0)
tx = tfr.ReadAll

Suerte.