SaveRestoreUDT

'Load the data from the file.

Private Sub LoadData(ByVal file_name As String, _
the_data As DataValuesType)
Dim fnum As Integer
On Error Resume Next
fnum = FreeFile

Open file_name For Binary As #fnum
Get #fnum, 1, the_data
Close #fnum
End Sub

' Save the data into the file.

Private Sub SaveData(ByVal file_name _
As String, the_data As DataValuesType)
Dim fnum As Integer
fnum = FreeFile
Open file_name For Binary As #fnum
Put #fnum, 1, the_data
Close #fnum
End Sub