[RESOLVED] change file's content format????

[gavio]

You have to replace vbLf with vbCrLf:

Option Explicit

Private Sub Form_Load()
    Dim intFF As Integer
    Dim strReaded() As String
        intFF = FreeFile
            Open "c:\sample.txt" For Input As #intFF
                strReaded = Split(Input(LOF(intFF), #intFF), vbLf)
            Close #intFF
        intFF = FreeFile
            Open "c:\output.txt" For Output As #intFF
                Print #intFF, Join(strReaded, vbCrLf);
            Close #intFF
End Sub