Option Explicit
 
Public Type tMitglied
  Name      As String * 30
  Adresse   As String * 30
  PLZ       As String * 5
  ...
  BildPath  As String * 10
End Type
 
Public Mitglied As tMitglied
 
Dim sData As String
 
Public Sub Main()
 
  sData = App.Path & "\data\members.dat"
 
  Dim F As Integer
  F = FreeFile
 
  Open sData For Random As #F Len = Len(Mitglied)
    With Mitglied
      .Name = "Hans"
      ...
    End With
 
    'evtl. Position festlegen
    'Seek #F, 5
 
    'normales Anlegen
    Put #F, , Mitglied
 
    'Ändern
    Put #F, 5, Mitglied
 
  Close #F
 
End Sub