Leer TXT

utiliza la clase system.io. Hay esta todo lo relacionado con la lectura,
escritura ... de archivos
De todas maneras te posteo tambien un ejemplo:

Este codigo lee tdo el contenido del documento

Dim lector As New StreamReader("ruta, nombre y extension del archivo")
While (lector.Peek() > -1)
MsgBox(lector.ReadLine())
End While
lector.Close()

, pero si lo que quieres es leer solo la primera linea le quitas la parte de
while y si lo que quieres es leer una linea en concreto cambias el codigo de
la siguiente manera:

Dim lector As New StreamReader("ruta, nombre y extension del archivo")
if (lector.Peek()=nº de linea) then
lector.ReadLine()
lo que quieras
end if
lector.close()

espero que te sea de utilidad