Public Sub Satzlänge_berechnen(Dateipfad As String)
Datensatzlänge = 0
On Error GoTo Fehler
No = FreeFile
Open Dateipfad For Input As #No
        Line Input #No, Tmp
        ReDim Feldlänge(Val(Tmp))
        For I = 1 To Val(Tmp)
            Input #1, dummy, Feldlänge(I), dummy, dummy, dummy
            Datensatzlänge = Datensatzlänge + Feldlänge(I)
        Next I
Close #No
No = 0
Fehler:
If No <> 0 Then Close #No
End Sub