XRFile = FREEFILE
OPEN "XREAD.EXE" FOR BINARY AS XRFile
...
CLOSE XRFile


Dim filePath As String = "XREAD.EXE"
' Open the file for binary read/write
Using fs As New FileStream(filePath, FileMode.Open, FileAccess.ReadWrite)
...
End Using

-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------