關於 Binary 存檔的問題...(編號：6297)

Dim MyData() As Byte
...
Open "test.dat" For Binary As #1
Put #1, , MyData
Close #1
上述程式碼，當 test.dat 已存在而且其檔案大小比 MyData 大時， MyData 是有存進去沒錯，但是在之後卻還是原來 test.dat 後面的資料。請問要如何才能將原來的檔案覆蓋掉，謝謝！