strng$=ReadString(opened) needs to go inside your Repeat/Until, for a start. As it stands, you're going to get stuck inside the loop indefinitely since you're not reading any more data from the file.
Also, turn Debug mode on and you'll get a more specific error.
Also, turn Debug mode on and you'll get a more specific error.