ник: ДрЮня
1. "пустая строка" всё равно заканчивается символами CHR13 & CHR10
("возврат каретки" + "перевод на новую строку")
2. у Вас чтение строк производится в цикле - лучше в цикле использовать один раз команду Line Input #fn
3. анализ на то, что строка пустая лучше делать так
if str1 = "" then
...
4. Close надо явно указывать хендлер (номер) файла: Close #fn
5. всё равно не понял, что Вы хотите извлечь из файла?