VB如何删除二进制文件指定的一段数据？谢谢

Dim AA As Integer, BB() As String, XX As String
Open App.Path & "\1.bin" For Input As #1
Do While Not EOF(1)
Input #1, XX
AA = AA + 1      '得到文件的总行数
Loop
Close #1
ReDim BB(1 To AA)
AA = 0    '初始化
Open App.Path & "\1.bin" For Input As #1
Do While Not EOF(1)
AA = AA + 1    '重新得到行数
Input #1, XX
If AA < 200 Or AA > 300 Then      '如果行数小于200 或者 大于300
BB(AA) = XX      '将数据存储在数组AA中
Next I
Loop
Close #1
Open App.Path & "\10.bin" For Append As #1      '创建一个新文件10.bin
For I = 1 To AA
If I < 200 Or I > 300 Then      '如果变量 I 小于200 或者 大于300
Print #1, BB(I)      '将数组的数据写入新文件，这样就删除了200至300行的数据了
End If
Next I
Close #1
Kill App.Path & "\1.bin"      '删除原来的 1.bin 文件，得到的 10.bin 文件就是删除后的文件