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 i As Long
Dim Datensatz As DatensatzType
 
FF1 = FreeFile
Open "Testdatei" For Random As FF1 Len = Len(Datensatz)
'Es werden alle Datensätze gesucht, die in der 5. Zeile und 3. Spalte
'des zweidimensionalen Arrays den Wert 3775 enthalten
For i = 1 To LOF(FF1) / Len(Datensatz)
    Get FF1, i, Datensatz
    If Datensatz.Datenfeld(5, 3) = 3775 Then
        'diesen Datensatz in eine Liste schreiben
    End If
Next
Close FF1
 
End Sub