Public Type BeteiligterType
    AZ As Long 
    Beteiligung As Long
    Person As Long
    IhrZeichen As String * 30
    Daten As BeteiligterUnterType
End Type
 
Public Sub Probe()
   Dim FF1 As Integer
   Dim DSNr As Long
   Dim Beteiligter As BeteiligterType
   FF1 = FreeFile
   Open "Beteiligte" For Random As FF1 Len = Len(Beteiligter)
   Lock FF1, DSNr
   Get FF1, DSNr, Beteiligter
   Unlock FF1, DSNr
   Close FF1
End Sub