Private Type Datensatz
  Name As String * 50
  Geschlecht As Integer
End Type
 
Dim UDT_Daten As Datensatz
Dim F As Integer

<font color=green>' "Datendatei" öffnen</font>
F = FreeFile
Open "Daten.dat" For Random As #F Len = Len(UDT_Daten)

DIm nCount As Long
nCount = Int(LOF(F) / Len(UDT_Daten)) + 1
With UDT_Daten
  .Name = "Schulz Hugo"
  .Geschlecht = 0
End With
Put #F, nCount, UDT_Daten

Dim nSatz As Long
 
nSatz = 10  <font color=green>' 10. Datensatz lesen, ändern und neu 
' schreiben</font>
Get #F, nSatz, UDT_Daten
With UDT_Daten
  .Name = "Schulz Marion"
  .Geschlecht = 1
End With
Put #F, nSatz, UDT_Daten

Dim nCount As Long
Dim i As Long
 
List1.Clear
nCount = Int(LOF(F) / Len(UDT_Daten)) + 1
For i = 1 To nCount
  Get #F, i, UDT_Daten
  List1.AddItem RTrim$(UDT_Daten.Name)
Next i

Private Sub List1_Click()
  If List1.ListIndex > -1 Then
    Get #F, List1.ListIndex + 1
    Option1(UDT_Daten.Geschlecht).Value = True
  End If
End Sub