请教我的代码有没有错误！！

[cqs76]

.......

Function readBinFromFile(ByVal bfilename As String) As Variant
Dim fl As Long
Dim FileNum As Long
Dim binbyte() As Byte
Dim binfilestr As String

On Error GoTo errHandler
FileNum = FreeFile
Open bfilename For Binary As #FileNum '读两进制文件
fl = FileLen(bfilename)
ReDim binbyte(fl)
Get #FileNum, , binbyte
Close #FileNum
readBinFromFile = binbyte
Exit Function

errHandler:
Exit Function
End Function

[cqs76]

这两天我实在是糊涂了！
请教前辈！

[zqho]

应该没有错误吧！

[w18ily]

错误情况下无返回~~

[pipipig]

最好
fl = FileLen(bfilename)
放在
Open bfilename For Binary As #FileNum
的上面

Dim binbyte() As Byte最好是全局变量
或者函数不要返回Variant

[naojin]

语法没有错，算法只有你知道