Function readBinFile(ByVal bfilename As String) Dim fl As Long Dim binbyte() As Byte Dim binfilestr As String On Error GoTo errHandler Open bfilename For Binary Access Read As #1 f1 = FileLen(bfilename) ReDim binbyte(f1) Get #1, , binbyte Close #1 readBinFile = binbyte Exit Function errHandler: Exit Function End Function