I also had problems with Windows 7 (Excel would hang/quit) but seem to have found a fix. I noticed that abBuff was not declared in DirectReadDriveNT. I added the statement Dim abBuff() as Byte and everything now works fine.