Visual Basic.NET - WriteByte en FtpWebResponse

Dim fi As New IO.FileInfo(v_nomfinal)

            Dim sr As New IO.FileStream("C:\diario\" + v_nomfinal, IO.FileMode.Open)

            Dim sw As New IO.FileStream("ftp://ftp.server.net/public_html/pruebavb/nota/" + v_nomfinal, IO.FileMode.Open)

            Dim len As Long = sr.Length - 1

            For i As Long = 0 To len

                sw.WriteByte(sr.ReadByte)

                If i Mod 1000 = 0 Then

                    ProgressBar1.Value = i * 100 / len()

                    Application.DoEvents()

                End If

            Next

            ProgressBar1.Value = 0

            sr.Close()

            sw.Close()

Private WithEvents wc As New System.Net.WebClient

        Private Sub wc_uploadProgressChanged(sender As Object, e As Net.UploadProgressChangedEventArgs) Handles wc.UploadProgressChanged

            Progressbar1.Minimum = 0

            Progressbar1.Maximum = 100

            Progressbar1.value = e.ProgressPercentage

        End Sub

        Private Sub wc_uploadFileCompleted(sender As Object, e As Net.UploadFileCompletedEventArgs) Handles wc.UploadFileCompleted

            If e.Cancelled = True Then

                MsgBox("Se ha cancelado la operación", MsgBoxStyle.Exclamation, "Cancelado")

            Else

                MsgBox("Se ha completado la operación", MsgBoxStyle.Information, "Completado")

            End If

        End Sub

        Private Sub subirArchivo(ftp As String, miArchivo As String)

            Dim uri As New Uri(ftp)

            wc.UploadFileAsync(uri, miArchivo)

        End Sub

        Private Sub cancelar()

            wc.CancelAsync()

        End Sub

Dim miUri2 As String = "ftp://ftp.server.net/public_html/pruebavb/portada/" + v_nomfinal

        Dim miRequest2 As Net.FtpWebRequest = Net.WebRequest.Create(miUri2)

        miRequest2.Credentials = New Net.NetworkCredential("usuario", "pass")

        miRequest2.Method = Net.WebRequestMethods.Ftp.UploadFile

        Try

            Dim bFile2() As Byte = System.IO.File.ReadAllBytes("C:\diario2\" + v_nomfinal)

            Dim miStream2 As System.IO.Stream = miRequest2.GetRequestStream()

            miStream2.Write(bFile2, 0, bFile2.Length)

            miStream2.Close()

            miStream2.Dispose()

        Catch ex As Exception

            Throw New Exception(ex.Message & ". El Archivo no pudo ser enviado.")

        End Try

Private Sub subirArchivo(ftp As String, miArchivo As String, usuario As String, contraseña As String)

        Dim credenciales As New Net.NetworkCredential(usuario, contraseña)

        wc.Credentials = credenciales

        Dim uri As New Uri(ftp)

        wc.UploadFileAsync(uri, miArchivo)

    End Sub