Sauver MSFlex Grid VB6

Bonjour,
Avant de sauver j'ai les titres des colonnes row 0 et 5 noms col 0 puis des chiffres dans col 2 à 5 et les fow 1 à 4
Je call Sauver comme suit:
Hello,
Before saving I have the titles of the columns row 0 and 5 names col 0 then numbers in col 2 to 5 and fow 1 to 4
I call Save as follows:
'******************************************************

Private Sub SauverListe()
' Save the FlexGrid data.
Dim file_name As String
Dim fnum As Integer
Dim max_row As Integer
Dim max_col As Integer
Dim L As Integer
Dim C As Integer
    file_name = App.Path
    If Right$(file_name, 1) <> "\" Then file_name = _
        file_name & "\"
    file_name = file_name & "MSFlexGrid1.dat"

    fnum = FreeFile
    Open file_name For Output As fnum

    ' Save the maximum row and column.
    max_row = MSFlexGrid1.Rows - 1
    max_col = MSFlexGrid1.Cols - 1
    Write #fnum, max_row, max_col

    For L = 0 To max_row
        For C = 0 To max_col
            Write #fnum, MSFlexGrid1.TextMatrix(L, C);
        Next C
        Write #fnum,
    Next L

    Close fnum
End Sub

'*****************************************************
Ceci fait, il n,y a aucun changement.
Je ferme et redémarre VB6
Le fichier n'a pas été sauver et il est vide.
Quelqu'un pourrait trouver mon erreur?

This done, there is no change.
I close and restart VB6
The file was not saved and it is empty.
Could someone find my mistake?thank you,
Merci, Thanks

Jean-Claude