Sub extract()

    Dim code() As Byte

    Open "Test.dat" For Random As #1
    Open "NewFile.dat" For Random As #2
    
    Seek  #1,  LOF(1) - 7168
    
    Get  #1,  ,  code
    
    Write #2, code
    
    Close #1
    Close #2
    
End Sub

Abend zusammen :)

Also das VBA-Sub oben soll also Datei Test.dat öffnen und die letzten 7168 bytes (wirklich bytes, also nichts mit Strings...) in eine zweite Datei NewFile.dat schreiben. Blöderweise macht er das nicht. Ich habe zwar schon etwas Programmiererfahrung, aber mit Makros in VBA bin ich noch nicht so lange...

Bei -Write #2, code bekomme ich einen Laufzeitfehler "Lufzeitfehler '54' - Falscher Dateimodus". Alle anderen Modi die ich kenne (und für Binär bleiben ja soweit ich weiß eh nur binary und random) funktionieren leider auch nicht, also was mache ich falsch ???