Dim fsi As New IO.FileStream(pfad1, IO.FileMode.Open, _
          IO.FileAccess.Read, IO.FileShare.None)
        Dim data(fsi.Length - 1) As Byte
        fsi.Read(data, 0, data.Length)
        fsi.Close()
        Dim sdata As String = Convert.ToBase64String(data)
 
 
 
        data = Convert.FromBase64String(sdata)
        Dim fso As New IO.FileStream(pfad2, IO.FileMode.Create, _
          IO.FileAccess.Write, IO.FileShare.None)
        fso.Write(data, 0, data.Length)
        fso.Close()

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov