Hallo,

Beim lesen in den String bringt er mir bei meiner Testdatei falsche Ergebnisse. Im String steht schon nach dem 4. Zeichen nicht mehr das drin was in der Datei steht. Ich vermute mal, dass es ein Problem beim Textstream ist.  

Ich würde das ganze binär lesen und schreiben, z. B. so:

    Dim s() As Byte
    Dim ff As Integer
    ff = FreeFile
    Open Datei1 For Binary Access Read As #ff
    ReDim s(0 To LOF(ff))
    Get #ff, , s
    Close #ff

Damit bekommst Du ein Byte-Array, das Du dann wieder schreiben kannst:

Sub WriteToFile(Datei As String, s() As Byte)
    Dim ff As Integer
    ff = FreeFile
    Open Datei For Binary Access Write As #ff
    Put #ff, , s
    Close #ff
End Sub

Gruß

Michael