Файл произвольного доступа: пустая запись в конце? - VB

Private Type GameRslts
    sName As String * 30
    nOpnClicks  As Integer
    ScndsCl As Single   
End Type
 
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    Dim Rcrd As GameRslts, FlNm As String, i As Integer   'debug
    FlNm = aPath & "myFileName"                                       'debug.  aPath is global-module function of app.path+-"\"
   
   Select Case KeyCode
      Case Is = vbKeyF1
    'show help here        
      Case Is = vbKeyF7 'debug write       
        With Rcrd
            .sName = "Test": .nOpnClicks = "99": .ScndsCl = "19648"
        End With
        Open FlNm For Random As #1 Len = Len(Rcrd)
        Put #1, , Rcrd
        Close 1
      Case Is = vbKeyF8   ' debug  read 
        Open FlNm For Random As #1 Len = Len(Rcrd)
        Do While Not EOF(1)
            Get #1, , Rcrd
            With Rcrd
                MsgBox .sName & " " & CStr(.nOpnClicks) & " " & CStr(.ScndsCl), , CStr(Seek(1))
            End With
            If EOF(1) Then Exit Sub   '  даже так пробовал :)
        Loop 'Until EOF(1)
    End Select   
End Sub

For i = 1 To Int(LOF(1) / Len(GmRes))
        'While Not EOF(1)     'и так пробовал
            Get #1, i, GmRecords   'Dim GmRes As GameRslts, GmRecords As GameRslts прописаны
        '......обработка считанного.....
 Next i : Close 1