如何以Binary方式读取该数

Dim cells(0 To 3) As Byte
Dim x As Long
x = 123456789
Open "c:\ceshi.txt" For Binary As 1
Put 1, , x '写入一个Long型数
Get 1, , cells
MsgBox cells '这样并不能得到该数字

Dim L As Long
Dim x As Long
x = 123456789
Open "c:\ceshi.txt" For Binary As #1
Put #1, , x '写入一个Long型数
Seek #1, 1
Get 1, , L
MsgBox L '这样并不能得到该数字End Sub

老兄 谢谢你 我一时犯糊涂了

　　我和楼上２个前辈有很大差距　很想知道你们是怎么学习怎么进步的　怎么从不了解到精通的