Sauvegarde flexgrid

Bonjour,
je suis a la recherche d une personne qui puisse m aider pour un problème de sauvegarde du contenue d un flexgrid

je m explique j ais un flexgrid ou je peut avoir de 1 ligne a 31 ligne cela varie selon le moment ou l on veut sauvegarder mois ce que je voudrais c est quant on clique son ma commande " enregistre" que tous les linges afficher a se moment la dans le flexgrid soit sauvegarder dans mon fichier texte ( relever.txt) .

pour l instant avec le code qui suit je ne peut enregistrer que deux lignes

Private Sub Command3_Click()
Dim m As Integer
For b = 0 To 1
a = 2 + b
m = FreeFile
Open "relever.txt" For Output As #m
Print #m, MSFlexGrid1.TextMatrix(2, 0) & " , " & MSFlexGrid1.TextMatrix(2, 1) & " , " & MSFlexGrid1.TextMatrix(2, 2) & " , " & MSFlexGrid1.TextMatrix(2, 3) & " , " & MSFlexGrid1.TextMatrix(2, 4) & ", " & MSFlexGrid1.TextMatrix(2, 5) & vbCrLf
Print #m, MSFlexGrid1.TextMatrix(a, 0) & " , " & MSFlexGrid1.TextMatrix(a, 1) & " , " & MSFlexGrid1.TextMatrix(a, 2) & " , " & MSFlexGrid1.TextMatrix(a, 3) & " , " & MSFlexGrid1.TextMatrix(a, 4) & ", " & MSFlexGrid1.TextMatrix(a, 5) & vbCrLf

Close #m
Next b
End Sub

le format de mon fichier texte est " 14/01/2009 , 00 h 00 , 00 h 00 , 0 h 0 , -6 h -30, 6 h 0"

j espère avoir été clair et vous remercie d avance