Запись и чтение данных из файла
 

Привет. Может кто-нибудь подсказать как записывать и читать данныеиз файла произвольного доступа?Например:Sub ExampleRandomAccessDim iNumber As IntegerDim sText As VariantDim aFile As StringaFile = "c:\data.txt"iNumber = FreefileOpen aFile For Random As #iNumber Len=32Seek #iNumber,1 Put #iNumber,, "Это первая строка текста" Put #iNumber,, "Это вторая строка текста"Put #iNumber,, "Это третья строка текста"Seek #iNumber,1Get #iNumber,,sTextв этом месте получаю сообщение "Ошибка ввода-вывода"Кстати, как расчитывать параметр ?