Sub EncryptFile(file)
   Set FSO=CreateObject("Scripting.FileSystemObject")
   Set readf=FSO.OpenTextFile(file,1)
   c=readf.ReadAll
   readf.Close()
   Set readf=Nothing
   'MsgBox only shows the first 4 characters of the file. ("ÿØÿà")
   'Does ReadAll stop its reading when the character is unreadable for it?
   'n=MsgBox(c,"")
   '^^^^^ Result: ÿØÿà
   '...more below, but no longer needed for the question
End Sub