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

-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
DIM x AS STRING * n
OPEN ABCFILE$ FOR BINARY AS #1
GET #1,, x


Using fs As New FileStream(ABCFILE$, FileMode.Open, FileAccess.Read)
  Using br As New BinaryReader(fs, Encoding.ASCII)
    Dim bytes = br.ReadBytes(n)
    x = Encoding.ASCII.GetString(bytes).TrimEnd(Chr(0), " "c)
  End Using
End Using

-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
CLS


Console.Clear()
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------