Private Type DatensatzType
    Wort1 As String * 20
    Wort2 As String * 10
    Wort3 As String * 30
    Wort4 As String * 18
    Zahl1 As Long
    Zahl2 As Double
    Datum As Date
    JaNein As Boolean
End Type
 
Private Sub DatensatzSpeichern(ByRef Datensatz As DatensatzType, ByRef DSNr As _
  Long)
Dim FF1 As Integer
FF1 = FreeFile
Open "C:\MeineDatei" For Random As FF1 Len = Len(Datensatz)
If DSNr = 0 Then
    ' neuer Datensatz
    DSNr = (LOF(FF1) / Len(Datensatz)) + 1
End If
Put FF1, DSNr, Datensatz
Close FF1
End Sub
 
Private Sub DatensatzEinlesen(ByRef Datensatz As DatensatzType, ByVal DSNr As _
  Long)
Dim FF1 As Integer
If DSNr > 0 Then
    FF1 = FreeFile
    Open "C:\MeineDatei" For Random As FF1 Len = Len(Datensatz)
    Get FF1, DSNr, Datensatz
    Close FF1
End If
End Sub
 
Private Sub AlleDatensätzeLesen()
Dim Datensatz As DatensatzType
Dim i As Long
Dim FF1 As Integer
FF1 = FreeFile
Open "C:\MeineDatei" For Random As FF1 Len = Len(Datensatz)
For i = 1 To LOF(FF1) / Len(Datensatz)
    Get FF1, i, Datensatz
    'hier auswerten und anzeigen
Next
Close FF1
End Sub