Как организовать копирование файла со статусом копирования в ProgressBar?Срочно!

Private Function Example(fileSrc As String, fileDst As String) As Single
Static bufString As String
Dim remainderSize As Single, fileSize As Single
Dim filePortion As Integer, hFile1 As Integer, hFile2 As Integer

On Error GoTo ErrCase
hFile1 = FreeFile
Open fileSrc For Binary Access Read As hFile1
hFile2 = FreeFile
Open fileDst For Binary Access Write As hFile2
fileSize = LOF(hFile1)
remainderSize = fileSize - LOF(hFile2)
Do
    If remainderSize < BUFSIZE Then
       filePortion = remainderSize
    Else
       filePortion = BUFSIZE
    End If
    bufString = String(filePortion, " ")
    Get hFile1, , bufString
    Put hFile2, , bufString
    remainderSize = fileSize - LOF(hFile2)
    If proBar.Value < proBar.Max Then
        proBar.Value = proBar.Value + 1
    End If
Loop Until remainderSize = 0
Close hFile1
Close hFile2
Example = fileSize
Exit Function

ErrCase:
MsgBox Err.Number & vbCr & Err.Description, vbCritical, "Ошибка"
Err.Clear
Close hFile1
Close hFile2
Example = -1
End Function