回复：《求助》关于（覆盖）写入数据到指定位置。

十分感谢雀巢vb豆浆兄的帮助，
完整的代码如下：
---------------------------------------------
Private Sub Command5_Click()
Dim a() As Byte
ReDim a(Len(Text1.Text) / 2 - 1) As Byte
For i = 0 To UBound(a)
a(i) = CByte(Mid(Text1.Text, 1 + i * 2, 2))
Next
Open "c:\Sango2.exe" For Binary As #1
Put #1, 33, a
End Sub
---------------------------------------------
在下还有小小问题。。盼望能得到解答。。
以上例子中，如果我要求输入的数据是十六进际的，有英文字母的，
如AF、1F、E3等等，上述式子字好像不能如常表达。
该如何重新定义a() 呢？
（我查一下，这种数据是否属于：十六进制整型数？）
恳请能解答一下在下的这个问题。
拜谢。。！


前些时写的一个静态修改器，估计里面有很多东西你用得着。
FC霸王的大陆ROM修改器2010版(开放源代码 VB6.0)
http://hi.baidu.com/dfqshy/blog/item/125d92826cb08ab36d81191c.html

感谢dfqshy推荐！

由于本人也才初入门，很多地方写得不好，新手看下可能有帮助，高手就不用看了。

a(i) = CByte("&H" + Mid(Text1.Text, 1 + i * 2, 2))

终于完满解决问题。。
代码如下：
---------------------------------------------------
Private Sub Command5_Click()
Dim a() As Byte
ReDim a(Len(Text1.Text) / 2 - 1) As Byte
For i = 0 To UBound(a)
a(i) = CByte("&H" + Mid(Text1.Text, 1 + i * 2, 2))
Next
Open "c:\Sango2.exe" For Binary As #1
Put #1, 33, a
End Sub
---------------------------------------------------
感谢楼上诸位兄台的意见、帮助，
特别是雀巢vb豆浆兄提供了代码。
衷心感谢。。。。


打开文件不关 这习惯貌似不完美。。。

，，原来还要关文件啊。。
我查一下去。。

更正如下：
---------------------------------------------------
Private Sub Command5_Click()
Dim a() As Byte
ReDim a(Len(Text1.Text) / 2 - 1) As Byte
For i = 0 To UBound(a)
a(i) = CByte("&H" + Mid(Text1.Text, 1 + i * 2, 2))
Next
Open "c:\Sango2.exe" For Binary As #1
Put #1, 33, a
Close #1
End Sub
---------------------------------------------------
感谢22l提醒。。