Type MenuType
Path As String
Name As String
Icon As String
Deleted As Boolean
ReNamed As Boolean
Visible As Boolean
Comment As String
End Type

Type FileData
Password_1 As String
Password_2 As String
Password_3 As Long
Menu(35) As MenuType
End Type

Public Settings As FileData

Public Property Get info() As FileData
Open "memphis.dat" For Binary Access Read As #1
Get #1, , info
Close #1
End Property

Public Property Let info(newInfo As FileData)
Open "memphis.dat" For Binary Access Write As #1
Put #1, , newInfo
Close #1
End Property

Почему не записываются данные ?