ランダム・ファイルの保存について教えてください。

Open "FILENAME" For Random As #1
n = LOF(1) / LEN(XXX) + 1 →XXXは64バイト固定のデータ
put #1, n, XXX
Close #1

この様なソースを書いて何度も実行すると
データが最後のレコードに書き込まれず、
ファイルが倍のスピードで大きくなってしまいます。

試しに上記ソースの2行目をなくしてnを固定で入れた場合
n=1 ファイルサイズ=64B
n=2 ファイルサイズ=192B
n=3 ファイルサイズ=320B
という感じで64×nバイトにならず64×(n×2−1)
となってしまいます。
VB6.0を使っているのですが、何か書き方が悪いのでしょうか？　
それともこういうもんなのでしょうか？