gem i fil hvad er der galt?

jeg prøver her på at gemme noget tekst i en fil, men det er kun den føste linje som bliver gemt det antal gange som der er linjer der hvorfor?

Private Sub Command5_Click()
Dim id As Integer
Open "data\budget.txt" For Output As #1
    For id = "1" To totalpost
    Write #1, totalpost, udgift, jan, feb, mar, apr, maj, jun, jul, aug, sep, okt, nov, dec, total
    Next
        Close #1
    End Sub