vba - Get 语句生成：“无效使用 Null”

Question

我需要打开（和关闭）多个文件。这就是为什么我写了一点Function FileOpen。该代码在我使用字节数组B但在函数中收到错误消息的子例程中完美运行。我传递了文件的全名“FN”。该文件存在。工作正常，ReDim但我明白了

错误 94“无效使用 null”

在 Get 语句上。

Sub main()     
    Dim FN As String: FN = "c:\tmp\test.docx"
    Dim B() As Byte

    If FileOpen(FN, B) < 0 Then Debug.Print " Error"
    
End Sub
Function FileOpen(FN, ByRef B) As Long
    Dim nFile As Integer
    
    nFile = FreeFile
    Open FN For Binary Access Read As nFile
    If LOF(nFile) > 0 Then
        ReDim B(LOF(nFile) - 1)
        Get nFile, , B
        Close nFile
        FileOpen = 0
    Else
        Close nFile
        FileOpen = -1
    End If

End Function

我该如何纠正？

标签： vbafilems-word