Private Type BauarbeiterType
    Nachname As String * 20
    Vorname As String * 20
    Stundensatz As Double
    Gewerk As Long
End Type
 
Private Type BaustelleType
    Bezeichnung As String * 50
    Bauarbeiter(100) As Long
End Type
 
 
Private Sub Programm()
Dim FF1 As Integer
Dim i As Long
Dim Bauarbeiter As BauarbeiterType
Dim Baustelle As BaustelleType
 
' einen (z. B. den 5.) Bauarbeiter speichern
Bauarbeiter.Nachname = "Müller-Lüdenscheidt"
Bauarbeiter.Vorname = "Alfred"
Bauarbeiter.Gewerk = 1
Bauarbeiter.Stundensatz = 17.5
FF1 = FreeFile
Open "Bauarbeiter" For Random As FF1 Len = Len(Bauarbeiter)
Put FF1, 5, Bauarbeiter
Close FF1
 
' einen weiteren (z. B. den 23.) Bauarbeiter speichern
Bauarbeiter.Nachname = "Krause"
Bauarbeiter.Vorname = "Peter"
Bauarbeiter.Gewerk = 44
Bauarbeiter.Stundensatz = 25.75
FF1 = FreeFile
Open "Bauarbeiter" For Random As FF1 Len = Len(Bauarbeiter)
Put FF1, 23, Bauarbeiter
Close FF1
 
 
' eine (die erste) Baustelle speichern
Baustelle.Bezeichnung = "Berliner Hochseilbahn"
Baustelle.Bauarbeiter(0) = 23 ' der 1. Bauarbeiter dieser Baustelle steht als 
' 23. Bauarbeiter in der Bauarbeiter-Datei
Baustelle.Bauarbeiter(1) = 5 ' der 2. Bauarbeiter dieser Baustelle steht als 5. 
' Bauarbeiter in der Bauarbeiter-Datei
FF1 = FreeFile
Open "Baustellen" For Random As FF1 Len = Len(Baustelle)
Put FF1, 1, Baustelle
Close FF1
 
 
' eine (die erste) Baustelle einlesen
FF1 = FreeFile
Open "Baustellen" For Random As FF1 Len = Len(Baustelle)
Get FF1, 1, Baustelle
Close FF1
' die Bauarbeiter zu dieser Baustelle einlesen
FF1 = FreeFile
Open "Bauarbeiter" For Random As FF1 Len = Len(Bauarbeiter)
Liste.Clear
For i = 0 To 100
    If Baustelle.Bauarbeiter(i) > 0 Then
        Get FF1, Baustelle.Bauarbeiter(i), Bauarbeiter
        Liste.Add RTrim$(Bauarbeiter.Nachname)
    End If
Next
Close FF1
 
End Sub