请问vb如何以二进制形式读取一个字节到一个变量中?

dim tmp as byte
Open "c:\1.dat" For Binary As #1
Get #1, 1, tmp
close #1

把c:\1.dat中的第1个字节读取出来放到Tmp中

一次以二进制形式读读512字节，放窗体或RichTextBox以16进制字符显示：
Option Explicit
Dim a As Byte
Dim aa As String
Dim bb As String
Dim i As Integer
Dim nw As Long

Private Sub Command1_Click()
CommonDialog1.ShowOpen
End Sub

Private Sub Command2_Click()
Dim a(255) As Byte
Dim i As Integer
Open "c:\binvary\TESTFILE" For Binary As #1
'Open "TESTFILE" For Binary As #1
For i = 0 To 255
a(i) = i
Put #1, i + 1, a(i)
Next i
Close
End Sub

Private Sub Command4_Click()
Cls
Text2 = ""
bb = ""
Open CommonDialog1.FileName For Binary As #1
For i = 1 + nw To 512 + nw
nw = Seek(1)