Function SafeFileCopy(Source As String, Destination As String) As Boolean
    On Error GoTo erro
 
    Dim fn As Long
    Dim sBuffer As String
 
    fn = FreeFile
 
    Open Source For Binary Shared As #fn
        sBuffer = Space(LOF(fn))
        Get #fn, , sBuffer
    Close #fn
 
    fn = FreeFile
 
    Open Destination For Binary As #fn
        Put #fn, , sBuffer
    Close #fn
 
    SafeFileCopy = True
    Exit Function
 
erro:
    SafeFileCopy = False
End Function

Manchmal verliert man, manchmal gewinnen die Anderen...