hola quisiera que me ayudaran con un pequeño problema. resulta que tengo un procedimineto que me pasa un archivo de texto a una variable string. El procedimiento es este

Public Sub txtAstring(ByVal strRuta As String, ByRef strCadena As String)
' Pasa a un string el contenido de un archivo txt
Dim fnum As Integer
On Error GoTo Ninguno
fnum = FreeFile
Open strRuta For Input As fnum
Do While Not EOF(fnum)
Line Input #fnum, txt
strCadena = strCadena & vbCrLf & txt
Loop
Close fnum
Ninguno:

End Sub

La pregunta es si existe alguna forma de q este procedimineto lea un archivo de la siguiente forma: primero el renglon 1, despues el 4, el 7 , y asi sucesivamente, es decir cada tres renglones.

creo q la solucion ha de ser muy simple aunq no la he podido encontrar

espero me ayuden y gracias

Hola:
No es la mejor manera, pero por lo pronto se me ocurre esto:

Public Sub txtAstring(ByVal strRuta As String, ByRef strCadena As String)
' Pasa a un string el contenido de un archivo txt
Dim fnum As Integer
Dim cont as integer

cont = 0
On Error GoTo Ninguno
fnum = FreeFile
Open strRuta For Input As fnum
Do While Not EOF(fnum)
Line Input #fnum, txt
If cont mod 3 = 0then
strCadena = strCadena & vbCrLf & txt
End If
cont = cont + 1
Loop
Close fnum
Ninguno:

End Sub


Espero te sirva
Saludos