Public Function SY_FilePrepareFromDisk(FullFileName As String, ByRef bFile As Variant, ByRef Dat As Date, Optional Silent As Boolean = False) As Boolean

Dim x As Integer
SY_FilePrepareFromDisk = False
If Not SY_FileCheckLen(FullFileName, Silent) Then Exit Function
Dat = FileDateTime(FullFileName)

On Error GoTo FileErr
x = FreeFile
Open FullFileName For Binary Access Read Shared As #x
ReDim bFil(0 To LOF(x) - 1) As Byte
Get #x, , bFil
bFile = bFil 'иначе ругается на тип данных
Erase bFil
Close #x

On Error GoTo 0
SY_FilePrepareFromDisk = True
Exit Function

FileErr:
If Not Silent Then MsgBox "Ошибка при работе с файлом." + vbCr + Err.Description, vbCritical, "Чтение файла"
On Error GoTo 0
Exit Function

End Function