谁能帮帮我？？关于数组问题！

我定义一个动态数组为integer类型，这个动态数组要写入一个二进制文件。当不确定下标时，写入文件后，可以从文件的属性看到文件的长度是2个字节，可我在窗体代码里用Redim确定了下标时，再写入文件，这时候再看文件的长度就会多出来10个字节，为什么？比如
Module中：
Public My_1 As A  
Public Type A
  b() As Integer
End typeForm1窗体的WriteFile按钮下：
Private Sub CmdWriteFile_Click()
   Open Filename For Binary As #nFileHandle
   ReDim My_1.b(1) As integer
   Put #nFileHandle, , My_1
   Close #nFileHandle
End sub我觉得运行之后的文件大小应该是4个字节，可不是，我看了一下是14个字节，比我想的多出10个字节，各位知道这是为什么？可我现在只想文件大小是我可以算出来的4个字节，应该怎么办？谢谢。