Do  While  openfile.AtEndOfLine  <  >    True
改成:
Do  While  openfile.AtEndOfStream  <  >    True