Private Type DatensatzType
    Nachname As String * 20
    Vorname As String * 20
    Datenfeld(10, 5) As Long
    Beliebig1 As Boolean
    Beliebig2 As Integer
    Beliebig3 As Currency
End Type
 
Private Sub MeinProgramm()
Dim FF1 As Integer
Dim Datensatz As DatensatzType
 
' Datei öffnen
FF1 = FreeFile
Open "Testdatei" For Random As FF1 Len = Len(Datensatz)
 
' 1. Datensatz mit Daten füllen
Datensatz.Vorname = "Fred"
Datensatz.Nachname = "Meier"
Datensatz.Datenfeld(0, 0) = 5
Datensatz.Datenfeld(1, 0) = 536
Datensatz.Datenfeld(3, 4) = 789
' 1. Datensatz speichern
Put FF1, 1, Datensatz
 
' 2. Datensatz mit Daten füllen
Datensatz.Vorname = "Hilde"
Datensatz.Nachname = "Schulz"
Datensatz.Datenfeld(0, 0) = 595
Datensatz.Datenfeld(1, 0) = 1119
Datensatz.Datenfeld(3, 4) = 3
' 2. Datensatz speichern
Put FF1, 2, Datensatz
 
' 1. Datensatz einlesen
Get FF1, 1, Datensatz
 
' 2. Datensatz einlesen
Get FF1, 2, Datensatz
 
' Datei schließen
Close FF1
End Sub