C# / VB.NET - [VB.NET]Correzione codice

Allora grazie a uno di un altro forum che mi ha postato un codice.

Il programma in pratica ha questa form e nn deve fare altro che unire dei files in uno ma c'e' il problema che modifica alcuni bytes che nn vanno modificsti ed è la cosa che mi fà imbestialire in quanto il codice nn ordina di fare questo

Il codice è questo:

Imports System.IO
Public Class Form1
    Private Sub btn_add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_add.Click
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim S() As String = OpenFileDialog1.FileNames 'un array che contiene i nomi dei file scelti
            Dim File As String
            For Each File In S
                ListBox1.Items.Add(File)
            Next
        End If
    End Sub

    Private Sub btn_create_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_create.Click
        If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim W As New IO.StreamWriter(SaveFileDialog1.FileName)
            Dim R As IO.StreamReader
            Dim File As String

            'il valore massimo della proprietà value della progressbar
            ProgressBar1.Maximum = ListBox1.Items.Count
            'il valore iniziali della progressbar
            ProgressBar1.Value = 0
            LabelStatus.Text = "Creazione File in corso..."

            ' scrittura del file
            For i As Int16 = 0 To ListBox1.Items.Count - 1
                File = ListBox1.Items(i)
                R = New IO.StreamReader(File)
                W.WriteLine(R.ReadToEnd)
                R.Close()
                R = Nothing
                ProgressBar1.Value += 1
            Next
            LabelStatus.Text = "File creato"
            ProgressBar1.Value = 0
        End If
    End Sub
End Class

La FORM è questa
[IMG]img87.imageshack.us/img87/7629/14ct3.jpg[/…]

Io pensavo fosse questa linea da modificare

For i As Int16 = 0 To ListBox1.Items.Count - 1

Di' un po': hai postato il problema su html.it? Perchè potrei aver risposto io: lo stile del codice sembra decisamente il mio... Cmq, come mai dici che non copia alcuni bytes? Ti sei fermato a verificare byte a byte che ognuno del file creato corrisponda pedissequamente a quelli dei file uniti? Non credo... allora, qual è l'errore?

P.S.: alla fine del codice manca W.Close()