mi ruta patch prueba1 , prueba2 ,prueba3

[zeroyevi]

valeee loco ya lo prove y funciono , igual encontre otra forma

olle tienes idea como ler lineas de un txt (solo tomar la linea y anexarla al siguiente txt

Open txtRuta For Input As #1

Do Until EOF(1)
Line Input #1, VarTexto
List1.Text = Text2 & VarTexto & vbCrLf

cont = cont + 1
txtCont = cont


If cont <= 5 Then

Dim nfile As Integer
nfile = FreeFile

Open App.Path & "\prueba" & r & ".txt" For Output As #nfile
Write #nfile, VarTexto & vbCrLf
Close #nfile
Else
cont = 0

End If

Loop
Close #1