Option Explicit
'http://vbzero.narod.ru/chapter1/page_17.htm
Type ZAP    'объявить структуру с именем ...
    Tab_N As String * 10   'табельный №
    Fam As String * 20    'фамилия
    Ima As String * 20    'имя
    Otht As String * 20    'отчество
    Raz As String * 5    'разряд
    Zeh As String * 5    'цех
    'общая дина = 80
End Type    'конец объявления структуры

Public Z As ZAP
Public Nz As Integer

Sub База_в_txt_файле()

'присваиваем значения переменным из структуры
    Z.Tab_N = "231"
    Z.Fam = "Ципихович"
    Z.Ima = "Эндрю"
    Z.Otht = "Иванович"
    Z.Raz = "1"
    Z.Zeh = "16"

    'обшая дина переменных из структуры
    'присваивается не реальная длина введённых данных во все переменные, а длина, присвоенная при объявлении структуры
    'общая дина = 80
    Dim Длина As Integer
    Длина = Len(Z)
    'For Random - тип доступа - произвольный
    'Access - ключевое слово, указывающее, что далее идет тип доступа
    'Тип_доступа - позволяет установить доступ к файлу
    'Read - для чтения
    'Write - для записи
    'Read Write - для чтения и записи
    'если не указывать тип доступа, то по умолчанию - для чтения и записи
    'права_доступа - определяет права доступа к файлу различных пользователей одновременно
    'Shared - открыто для чтения и записи всем
    'Lock Read - никто другой не может читать открытый файл
    'Lock Write - никто другой не может записывать в файл
    'Lock Read Write - никто другой не может ни писать, ни считывать данные файла
    'если файла с таким именем не существует, VB его создаст (пустым)
    Open "C:\база.txt" For Random As #1 Len = Len(Z)
    'MsgBox$ LOF(1)
    'MsgBox$ 0 / 80 + 1
    Nz = LOF(1) / Len(Z) + 1
    'для записи в файл используют оператор Put
    'данные записываются в строку
    'для данных из структуры отводится место для нужного количества знаков
    'нужное количество знаков объявляется в структуре
    'Put #Номер_файла, Номер_записи, Переменная
    Put #1, Nz, Z
    Close #1
    Open "C:\база.txt" For Random As #1 Len = Len(Z)
    Nz = 1    'начиная с первой записи
    Do While Not EOF(1)
        'для считывания с файла используют оператор Get
        'Get #Номер_файла, Номер_записи, Переменная
        Get #1, Nz, Z
        'Обрабатываем
    Loop
    Close #1
End Sub