Hola, yo usaria un archivos de acceso aleatorio en tu caso, pero si nesecitas hacerlo con archivos de texto te dejo un ejemplo, en caso que te sirva lo tenés que optimizar de acuerdo a tus necesidades.
Código:
Option Explicit
Private Sub Form_Load()
MsgBox LeerLinea(1)
MsgBox LeerLinea(4)
MsgBox LeerLinea(5)
MsgBox LeerLinea(45)
End Sub
Function LeerLinea(numeroLinea As Integer) As String
If Dir("C:\datos.txt") <> "" Then
Open "C:\datos.txt" For Input As #1
Dim i As Integer
For i = 1 To numeroLinea
If Not EOF(1) Then
Line Input #1, LeerLinea
Else
LeerLinea = "EOF"
End If
Next
Close #1
Else
LeerLinea = "no hay archivo"
End If
End Function
Gracias por tu respuesta.. pero yo buscaba si existia un comando parecido a seek para hacerlo. Igualmente gracias