Процедура копирования двух файлов - VB

Формулировка задачи:

Мне нужно скопировать два файла, открытые как БИНАРНЫЕ. Перенос по букве слишком тормозит. Использовать системные копиры не могу так как должен контролировать весь процесс. Помогите кодом, кто знает. ПЛИЗ!!!

Решение задачи: «Процедура копирования двух файлов»

textual
                            Листинг программы 
                        

                            Public Sub CopyContents(Source As String, Destination As String)
'нет обработки ошибок !
    Dim SID As Long
    Dim DID As Long
    Dim Contents As String
    Dim Bytes As Long
    SID = FreeFile
    Open Source For Binary As SID
    Bytes = LOF(SID)
    If Bytes = 0 Then Exit Sub
    Contents = Space(Bytes)
    Get SID, , Contents
    DID = FreeFile
    Open Destination For Binary As DID
    Put DID, , Contents
    Close SID
    Close DID
End Sub
                        