關於檔案的讀取(編號：8631)

我想把自己最後 16384byte 的資料存入 888.txt 不知道這樣做是否有錯
Option Explicit
Const SelfSize = 16384
Const MySize = 20480
Dim Buff() As Byte
Private Sub Command1_Click()
Open "c:\888.txt" For Binary As #8　 '寫入 自己最後 16384 個byte
Seek #8, SelfSize + 1
　　　　　　　　　　Put #8, , Buff
　　　　　　　　　　Close #8
End Sub

Private Sub Form_Load()
Open App.Path + "\" + App.EXEName + ".exe" For Binary As #77　'打開自己讀取最後 16384 個byte
ReDim Buff(SelfSize - 1)
Seek #77, MySize + 1
Get #77, , Buff
Close #77
End Sub