ctrlf is gone when i use the right function

in the text file there is a ctrlf on position 600.
I need the 550 positions of the right (with the ctrlf), i
used the right function because i don't need the first 50 characters of the left.
But, the right function gives a result without the ctrlf (control line feed) caracter.
How can i obtain that this character is set on position 600?

see attachement for text file

code:
Sub Main()


Open "C:\Program Files\Protime\ProTime Premium\magi2.txt" For Input As #1 ' Open bestand voor invoer
Open "C:\Program Files\Protime\ProTime Premium\magi3.txt" For Output As #2 'open bestand voor uitvoer

iRight = 550

Do While Not EOF(1) ' Controle op einde bestand

Line Input #1, sString

sRightString = Right(sString, iRight)
Debug.Print sRightString

Print #2, sRightString
Debug.Print sFinalString

Loop
Close #1
Close #2
End Sub

is the magi.txt the starting file or the finish file?

post magi2.txt

and create a magi3 how you want it to look...and post that too (not what the program creates but how you want it to look)

and are you using VB6?

sorry, indeed, magi.txt is the start file
code must be:

Open "C:\Program Files\Protime\ProTime Premium\magi.txt" For Input As #1
Open "C:\Program Files\Protime\ProTime Premium\magi2.txt" For Output As #2

i use VB6

how do you want the result to look...
can you take the magi.txt and make it look like how you want it to...That would help me

this is how it must look like.

But the mid function did the job well, of course, i'm always interested in any solutions

well ...
the format is not holding up when I save the attachments...but...

Open "C:\magi.txt" For Input As #1
Open "C:\magi2.txt" For Output As #2
Do Until EOF(1)
Line Input #1, Getit
Getit = Right(Getit, 550)
Print #2, Getit & vbCrLf
Loop
Close #1
Close #2

should work fine....