Code:
Dim MyFile as byte
Dim strFile as String
MyFile = freefile
Open "Whatever" for binary as MyFile
strFile = String(LOF(MyFile), " ")
Get MyFile,,strFile
Close MyFile
------------------
r0ach(tm)