Dim f As Long
f = FreeFile
Open RUTA & "\FILE.txt" For Output As #f
Print #f, "V0004736880 000000000134142 C 000 01082428160200020603 José Lucidio ,Alvarado Herrera" & vbCrLf & _
"V0007358451 000000000511645 C 000 01082428190100015572 Luís Alberto ,González Herrera"
Close #f