чтение файла

Не подскажете, как прочитать в переменную концовку текста с файла на винте? Что то не получается. Вариант 1: FNum = Freefile() Open mypatch$ For Output As FNum ' Почему то делает файл размером 0 байт myseek$ = Seek (FNum) ' получаю текущюю позицию, а как узнать...