[VB6] Problema che non riesco a risolvere, errore get e put

[Nandos]

so andato un pò avanti. ora quando aggiungo un'assenza allo studente non la salva , come faccio ?

ecco il codice:

Private Sub Addass_Click()
    
    Dim a, b As Integer
    Call OpenFileStud
    NumeroElementi1 = LOF(1) / Len(studente)
    For i = 1 To NumeroElementi1
    Get #1, i, studente
       If Text1.Text = Trim(studente.Nome) And Text2.Text = Trim(studente.Cognome) Then
            a = studente.assenze
            b = a + 1
            lblassenze.Caption = b
            studente.assenze = b
            Put #1, NumeroElementi1, studente
            Call CloseFileStud
            MsgBox "Assenza aggiunta con successo!", vbInformation, "Successfull!"
            Exit Sub
        End If
    Next

End Sub

con la dichiarazione della variabile student

Private Type Mystud

    Login As String * 8
    Password As String * 8
    Livello As Integer
    Descrizione As String * 100
    Classe As String * 10
    Specializzazione As String * 50
    Cognome As String * 50
    Nome As String * 50
    DataNascita As Date
    CodFiscale As String * 50
    Via As String * 50
    Città As String * 50
    Telefono As String * 50
    Cellulare As String * 50
    assenze As Integer
    Email As String * 100

End Type

Public studente As Mystud

dove sta sbagliato :S, la aggiunge una volta ma la proxima mi tiene sempre 0 come assenze e non le salva :S