FileOpen(1, FileName, OpenMode.Binary)
Dim str As String = Space(LOF(1))
FileGet(1, str)
FileClose(1)

---

данное сообщение получено с www.gotdotnet.ru
ссылка на оригинальное сообщение