Приведите любой пример работы с записями - VB

Private Type typeStudent
    Imya As String
    Fam As String
    Otch As String
    GodR As Integer
    MecR As Integer
    ChisR As Integer
End Type
Dim Student() As typeStudent
Dim MecS As Integer, ChisS As Integer
Dim CSt As Integer, i As Integer, s As String
 
Private Sub Command1_Click()
Dim ff As Integer
    ff = FreeFile
    CSt = InputBox("Количество учеников в классе?", "", 3)
    ReDim Student(1 To CSt)
    
    For i = 1 To CSt
         Student(i).Fam = InputBox("Фамилия ученика № " & i, "", "Иванов")
         Student(i).Imya = InputBox("Имя ученика № " & i, "", "Иван")
         Student(i).Otch = InputBox("Отчество ученика № " & i, "", "Иванович")
         Student(i).GodR = InputBox("Год рождения ученика № " & i, "", 1992)
         Student(i).MecR = InputBox("Месяц рождения ученика № " & i, "", 12)
         Student(i).ChisR = InputBox("Число рождения ученика № " & i, "", 6)
    Next i
    
    Open App.Path & "\Data.dat" For Binary As #ff
        Put #ff, , CSt
        Put #ff, , Student
    Close #ff
  
End Sub
 
Private Sub Command2_Click()
  Dim ff As Integer
  ff = FreeFile
 
    
    Open App.Path & "\Data.dat" For Binary As #ff
          Get #ff, , CSt
          ReDim Student(1 To CSt)
          Get #ff, , Student
    Close #ff
    
    
    MecS = Val(Text8.Text)
    ChisS = Val(Text9.Text)
  
    Picture1.Cls
    s = "Сегодня," & "  " & ChisS & "." & MonthName(MecS) & "  день рождения у : " & vbCrLf
    For i = 1 To CSt
         If Student(i).MecR = MecS And Student(i).ChisR = ChisS Then
             s = s & Student(i).Fam & " " & Student(i).Imya & " " & Student(i).Otch & vbCrLf
         End If
    Next i
 
    Picture1.Print s
End Sub