If you use Binary access you need use Get statement. For sample:

Dim s As String * 1

Open "C:\Windows\Calc.exe" For Binary Access Read As #1

While Not EOF(1)
Get #1, , s
Text1.Text = Text1.Text & s
Wend

Close #1

------------------
smalig
[email protected]
http://vbcode.webhostme.com/