我把接收到的数据以16进制的形式写入文件，可是，在读出的时候，如果是22就可以正确读出，但要是FF就会读成0了，我看MSDN说数据类型不相符时就会赋0，可是应该怎么把数据正确读出呢
Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent '判断MSComm1通信事件
Case comEvReceive '收到Rthreshold个字节产生的接收事件
MSComm1.InputMode = comInputModeBinary
intBuf = MSComm1.InBufferCount
ReDim bytIn(intBuf)
bytIn = MSComm1.Input '显示
Call InputManage(bytIn, intBuf)
Call GetDisplayText '文本显示
Open "d:\zm\vbdata\data.txt" For Binary As #1
For i = 1 To intReceiveLen
Seek #1, i
Put #1, , bytReceiveByte(i - 1) '把数据保存在"d:\zm\vbdata\data.txt"中
Next
Close #1
Case Else
End Select
End Sub

以二进制的形式来读写，不用要转换！这样就更简单了。
希望我的一点点总结，能对大家有帮助

[此贴子已经被作者于2007-5-11 17:30:08编辑过]

我在GetDisplayText函数里做了这个转换，并且把接收到的数据以16进制的形式写在了text里了，所以我想直接把数据从text里保存，这样的想法对吗？
我刚试了下，把temp2改成string就可以了，可以这样用吗？

Private Sub cmdPicture_Click()
Din temp2 As string
Dim temp%
Open "d:\vbdata\data.txt" For Input As #1
While Not EOF(1)
Input #1, temp2
temp = ("&h" & temp2)
draw (temp) '画图
Wend
Close #1
Form2.Show
End Sub