Public Class Form1
 
 
    Dim test As Byte()
    Dim ToRead As String = "C:\Test.exe"
    Dim Neu As String = "C:\Neue.exe"
End Sub
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
 
        test = File.ReadAllBytes(ToRead)
 
        Dim fs As New FileStream(Neu, FileMode.Open, FileAccess.Write)
 
        Dim w As BinaryWriter = New BinaryWriter(fs)
         w.BaseStream.Seek(0, SeekOrigin.End)  
        w.Write(test)
 
        w.Close()
        fs.Close()
 
    End Sub
End Class]