Rose2007() 请进，给你送分，其他人帮解决也有分，有关二进制的有关问题

Rose2007() 请进，给你送分，其他人帮解决也有分，有关二进制的问题
刚刚这个帖子
http://community.csdn.net/Expert/topic/5490/5490259.xml?temp=.4327204

另一个要实现的，我想把这个二进制文件读出来，把其中显示的时间赋到一个TextBox中，怎么能实现？

[解决办法]
Dim data1 As Date

Private Sub Command1_Click()
Open "e:\Now.txt " For Binary As #1
Get #1, , data1
Debug.Print data1
Close #1
End Sub