vb读写二进制文件后如何快速写入文件?急急急

我用如下语句写二进制文件,其中mRecTable0是结构,iBlock 是某块
  Open iFileName For Binary Access Write As #5 
  Seek #5, Len(mRecTable0) * iBlock + 1
  Put #5, , mRecTable0
  Close #5
其实文件只有223kb大小,且每次只写其中某块,可以很快速度写完,
且已关闭文件,但当我隔2-3秒断电测试时,文件经常没写到或其他错误
是否是Xp还没从缓冲区写入硬盘,有什么办法让Open方式马上写硬盘呢???
说明:程序没问题,即不断电时可以,断电才偶尔出现这种故障
哪位高手帮忙回答下.非常多谢!!!

Open iFileName For Binary Access Write As #5  
  Seek #5, Len(mRecTable0) * iBlock + 1
  Put #5, , mRecTable0
doevents
  Close #5
doevents

加doevents试下