类模块中定义的变量能否同自定义类型那样作为文件记录存取？

自学类模块中，菜鸟问题，但多种教材中都没有答案，自编程序不给通过，故此请教？

补充：测试程序
Dim test1 As New cls_Index
Open "AdmitRng.aaa" For Random As #1 Len = Len(test1)
        Put #1, , test1
Close 1


出错：