Visa hur långt det har kopierat

Hejsan, jag har denna kod:

        Dim OldFile, NewFile As String
        OldFile = txtCopy.Text
        NewFile = txtTo.Text & Filnamn
        ProgressBar1.Max = FileLen(OldFile)
       
        Do Until FileLen(NewFile) = FileLen(OldFile)
            FileCopy txtCopy.Text, txtTo.Text & Filnamn
            MsgBox "Gamla filen: " & FileLen(OldFile)
            ProgressBar1.Value = FileLen(NewFile)
            MsgBox "Nya filen: " & FileLen(NewFile)
        Loop

Det som sker, med denna kod, är att först innan man klickar på progressbaren är progressbaren tom (value = 0), sen när man klickat och filen är kopierad står progressbar.value på det den skall (filelen(newfile)). Men jag förstår inte varför den inte uppdaterar progressbaren hela tiden, så att man ser hela tiden hur långt den kopierat. Någon som vet?