Retour à la ligne avec fichier à accès aléatoire

Salut tout le monde.

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click

 
Dim RA As Retenu_Avance
Dim i AsInteger
Dim FileNum AsInteger, RecLength AsLong
Dim last AsLong
        RecLength = Len(RA)
        FileNum = FreeFile()

For i = 0To DataGridView1.Rows.Count - 1
            FileOpen(FileNum, "D:\Retenu_Avance.txt", OpenMode.Random, , , RecLength)
            last = FileLen("D:\Retenu_Avance.txt") / RecLength
            RA.CODERET = DataGridView1.Item(0, i).Value.ToString
            RA.MATRICULE = DataGridView1.Item(1, i).Value.ToString
            RA.NOM = DataGridView1.Item(2, i).Value.ToString
            RA.PRENOM = DataGridView1.Item(3, i).Value.ToString
            RA.DIRECTION = DataGridView1.Item(4, i).Value.ToString
            RA.MONTMOIS = DataGridView1.Item(5, i).Value.ToString
            RA.ECHEANCE = DataGridView1.Item(6, i).Value.ToString
            RA.TYP = DataGridView1.Item(7, i).Value.ToString
            RA.NBMOIS = DataGridView1.Item(8, i).Value.ToString
            FilePut(FileNum, RA, last + 1)
            FileClose(FileNum)
Next
 
 
EndSub

ci dessus, le code d'ajout de lignes d'un datagridview dans un fichier text, mais le seul problème c'est qu'il écrit tous dans une seule ligne malgré que j'ai mit le "last+1" je sais pas pourquoi