This may seem a little bit stupid question but, I need help.

I have a text file.
I have to position myself at the end of the file and write to it.
I have define a type:

Public Type tPost
    sCustomerCode As String * 7
    (...)
    sTVQAmt As String * 9
End Type

The way I figured it is with this code:

Dim tTemp As tPost
Dim tGood As tPost
Dim a as Integer

Open FILE For Random As #1 Len = Len(tTemp)
Do While Not EOF(#1)'goto end of file
    a = a + 1
    Get #1, a, tTemp
Loop
Put #1, a, tGood 'write something
Close #1
End Sub

But, something is going wrong, because, the line is not written at the end of the file... (somehwere near, but not at the end)

Do I have the good method to do want I want?