>Thisform.nBarIncr = nBarMax / occurs(chr(13),filetostr

THe problem with FileToStr() here is that loading the file into a string is way too slow! If you're trying to append from a file that needs a progress bar, this is counter productive.