'Read a binary file "s"
Private Function ReadPic(s As String) As Boolean
    Dim fh As Integer
    On Error GoTo wrong
    ReadPic = False
    fh = FreeFile
    If fh =  0  Then Exit Function
    Open s For Binary Access Read Lock Write As #fh
    ReDim m_b( 1  To LOF(fh))
    Get #fh, , m_b
    Close #fh
wrong:
    Select Case Err.Number
    Case  0 
        ReadPic = True
    Case  9 
        MsgBox "No such a file: " & s, , "ReadPic"
    Case Else
        Debug.Print "ReadPic", Err.Number, Err.Description
    End Select
End Function