Attribute VB_Name = "Module1"
Type record
    name As String * 30
    event As String * 25
    td As Long
    year As String * 5
End Type

Public records As record
Public mycount As Integer
Public pathname As String
Public fileopened As Boolean
