Размер файла произвольного доступа.в чем подвох? - VB

Public f As String, alltext As String
Public Type worker
code As String * 10
author As String * 10
named As String * 10
year As Integer
numberBookStand As Byte
numberBookShelf As Byte
End Type
Public worker1 As worker

Public Sub add()
Dim m As Integer, putnomer As Byte
'On Error GoTo Cancel
m = vbYes
Open f For Random As #1
 With worker1
    Do While m = vbYes
        putnomer = LOF(1) / 34 + 1
           .code = InputBox("введите шифр", "шифр")
        .author = InputBox("введите автора", "автор")
        .named = InputBox("введите название ", "название")
        .year = InputBox("введите год издания", "год")
        .numberBookStand = InputBox("введите номер стеллажа", "номер стеллажа")
        .numberBookShelf = InputBox("введите номер полки", "номер полки")
       End With
       putnomer = putnomer + 1
       Put #1, putnomer, worker1
    m = MsgBox("Желаете добавить еще книгу?", vbQuestion + vbYesNo, "Продолжение")
    Loop
  End With
Close #1
 
Call view
'Cancel:
'If Err.Number = cdlCancel Then Exit Sub
End Sub