rainstormmaster兄，我在写入文件的时候，buff为空。请问怎么办？

[yunok]

rainstormmaster兄,看了您的大作：VB嵌入文件的非常规实现。我试验如下：
Option Explicit

Dim buff() As Byte


Private Sub writetext(ByVal FileName As String, ByVal ByteArrayName As String, ByVal TxtFile As String)
Dim i As Long
i = FileLen(FileName)
Dim arr() As Byte
ReDim arr(i - 1)
Open FileName For Binary As #1
Get #1, , arr
Close #1
Dim temps As String
Open TxtFile For Output As #1
Print #1, "ReDim " + "buff" + "(" + CStr(i - 1) + ")"
For i = 0 To UBound(arr)
temps = "buff" + "(" + CStr(i) + ")=" + CStr(arr(i))
Print #1, temps
Next
Close #1
End Sub

Private Sub Command1_Click() '写入txt
writetext "c:\test.ocx", "buff", "c:\buff.txt"
End Sub

Private Sub Command2_Click()
Open "c:\test.ocx" For Binary As #1
Put #1, , buff
Close #1
End Sub


我想写入ocx的时候，buff为空，我是不是应该读取全部的txt文本内容，然后将它们赋给buff呢？可是我运行以后立即死机。郁闷。 请问这个buff如何正确赋值？