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

Question

....... 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

Answer 1

最好
fl = FileLen(bfilename)
放在
Open bfilename For Binary As #FileNum 
的上面Dim binbyte() As Byte最好是全局变量
或者函数不要返回Variant