请问一个二进制文件读写的问题

Question

Private Sub Command1_Click()
Dim bytTmp() As Byte,strTmp As String
Dim s1 As String, s2 As StringbytTmp = StrConv("0915", vbNarrow)
Open "c:\byt.bin" For Binary As #1
Put #1, , bytTmp
Close #1ReDim bytTmp(1 To FileLen("c:\byt.bin"))Open "c:\byt.bin" For Binary As #1
Get #1, , bytTmp
Close #1
strTmp = bytTmp
Debug.Print strTmp
s1 = Mid(strTmp, 1, 2)
s2 = Mid(strTmp, 3, 2)
Debug.Print s1, s2
Kill "c:\byt.bin"End Sub