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

先感谢各位仁兄的帮助，我试试看。
ps：居然被良牙兄跟踪了。。

我编写了Command5的代码，如下：
--------------------------------
Private Sub Command5_Click()
Open "c:\Sango2.exe" For Binary As #1
Open Text1.Text For Binary As #2
Put #1, 33, Text1.Text
End Sub
--------------------------------
我发现是可行的，成功插入了。。
但是，它把我的Text1.Text里面的数据化成了“不知什么码”才代入，（如下图）
我要的是直接更换啊。
请问各位仁兄，如何定义Text1.Text里面的内容才可以做到。
感谢感谢！！


原来上图是插入了文字，并不是插入内码。
继续请求高手解答。

先感谢雀巢vb豆浆的帮助。。

在测试中遇到小小问题，望能解答在下疑惑。
感谢！

十分感谢雀巢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() 呢？
（我查一下，这种数据是否属于：十六进制整型数？）
恳请能解答一下在下的这个问题。
拜谢。。！


感谢dfqshy推荐！

终于完满解决问题。。
代码如下：
---------------------------------------------------
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提醒。。