Working with buffers

[Troy Lundin]

I am trying to store a file's data into a byte array and display it in a textbox.

I tried this:

Option Explicit
Private b() As Byte
Private Sub Command1_Click()
Open "c:\7za.exe" For Binary As #1
Get #1, , b
Text1.Text = b
Close #1
End Sub

when i click the button text1 becomes empty. Note that c:\7za.exe is a valid file.