vb get 函数?

Question

Option ExplicitPrivate Type recordID As Integername As String * 5End TypePublic Sub wrong()MsgBox "发生错误" & vbCrLf & Err.Description, 0 + 16, "错误"End SubPrivate Sub Form_Click()On Error GoTo tag1Dim myrecord As record, positionOpen "C:\Users\stoplee\Desktop\新建文本文档 (2).txt" For Random As #1 Len = Len(myrecord)'Debug.Print Len(myrecord)position = 1Get #1, position, myrecordPrint myrecord.nameClose #1Exit Subtag1:wrongEnd Sub这个例子是书上的 主窗体过程里 那个调试注释是我自己加的 为毛len（myrecord）等于7 ？？？