求助啊，vb用二进制读取出问题了

Public Sub load_File(name As String)

  Dim FreeNum As Integer

  If name = "" Then Exit Sub

  FreeNum = FreeFile

  Open name For Binary As #FreeNum '----------------------Error 错误就出在这

  ReDim OriginalArray(0 To 800)

  Get #FreeNum, , OriginalArray()

  Close #FreeNum

  JustLoaded = True

  OriginalSize = UBound(OriginalArray) + 1

End Sub


'在做一个杀毒的小模型，在路径上出了点问题。帮帮我...

错误提示？