Cоздание последовательного файла

Спасибо за ответ. Уточняю, меня интересует создание файла последовательного доступа.
Попробовал внести изменения, но все ровно при запуске идет сбой.
Private Sub CommandButton1_Click()
Dim filenum As Integer
filenum = FreeFile
Open "c:\auto.txt" For Output As filenum
End Sub

Попробовал добавить команду закрытия файла, но все без результатно. Файл не создается, даже пустой и ошибки не выводятся. Знатоки подскажите пожалуста в чем ошибка.

У меня такое:

Sub test()
Dim f As Integer
Dim fName As String
  f = FreeFile
  Open "c:\test.txt" For Output As f 'Len = 20
  Close f
End Sub

Создало пустой файл и закрыло доступ к нему.

Уважаемый kpblc я попробовал ваш алгоритм, но результат нулевой. Чтобы исключить все возможные факторы, я создал форму с единственной кнопкой.
Private Sub CommandButton1_Click()
UserForm3.Hide
Dim f As Integer
    Dim fName As String
    Dim str As String
    Dim ReadString As String
    str = "To be, or not to be?"
    f = FreeFile
    Open "c:\test.txt" For Output As f
    Print #f, str
    Close f
    Open "c:\test.txt" For Input As f
    Line Input #f, ReadString
    Close f
    MsgBox ReadString
UserForm3.Show
End Sub
Я уже думал, что через встроенную функцию в этой модификации AutoCAD 2006 нельзя создать файл с последовательным доступом, но если у Вас получилось, то пожалуйста опишите подробнее. Я думаю это будет интересно многим участникам форума, т.к. такой файл можно непосредственно считывать в Excel (если данные вводить через пробел, а строки разделять Enter)/
Всем  принимавшим участие в обсуждении - Большое спасибо.

> Евгений Елпанов
Да вроде бы не Автокад создает файлы, а операционная система... и в этом плане могут быть ограничения наложенные админом?

> Андрей
Предполагаю, что это обращение ко мне, но мне нечего добавить - код выложен на ветке. Присоединяюсь к предложению Евгения Елпанова.
P.S. Я запускал этот код из ACAD2002, но не думаю, что здесь версия ACAD'а принципиальна.

> Андрей
Попробуйте пример с API
http://www.cad.dp.ua/stats/a_vba/conten … t.html#API OPENFILENAME

Уважаемые господа, файл с применением API, создать не сложно. Мне самому интересно разобраться в причине. В хелпе имеется даже пример создания файла с последовательным доступом, но он тоже зависает. Если создать текстовый файл в Блокноте, то файл открывается для чтения.
Open "c:\avt.txt" For Input as filenum
Но если вставить Output, все зависает.

Проверено все работает

 Open named & namesf & ".s5" For Output As #30
 Print #30, "0101001"
 Print #30, Date
 Close #30