VB .NET Copiando Arquivos

Imports System.IO

Public Class Form1

    Private Sub btnCopiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCopiar.Click

        Dim dialog As New OpenFileDialog

        If (dialog.ShowDialog().Equals(DialogResult.OK)) Then

            Dim conteudoArquivo As String

            Using stream As New StreamReader(New FileStream(dialog.FileName, FileMode.Open))

                conteudoArquivo = stream.ReadToEnd

                Dim linhas As String() = conteudoArquivo.Split(vbCr)

                Dim linhaAtual As Integer = 0

                ProgressBar1.Step = linhas.Count

                ProgressBar1.Maximum = linhas.Count

                For Each linha As String In linhas

                    'exemplo: crie um arquivo txt e dentro dele coloque um caminho de um arquivo,

                    'como por exemplo: C:\Controle de Estoque\Estoque.accdb

                    'o C:\bkp seria o caminho para onde estarei copiando o arquivo.

                    File.Copy(linha.TrimStart, Path.Combine("C:\bkp", Path.GetFileName(linha.TrimStart)), True)

                    linhaAtual = linhaAtual + 1

                    ProgressBar1.Value = linhaAtual

                    Application.DoEvents()

                Next

            End Using

        End If

    End Sub

End Class