如何使用VBA读取二进制文件？

Sub ReadBinaryFile()
    Dim objStream As ADODB.Stream
    Dim strFilePath As String
    Dim strFileContent As String

    ' 指定要读取的文件路径
    strFilePath = "C:\example.bin"

    ' 创建一个新的 ADODB.Stream 对象
    Set objStream = New ADODB.Stream

    ' 打开文件并设置为二进制读取模式
    objStream.Open strFilePath, adModeRead, adOpenBinary

    ' 读取文件内容并将其存储在字符串变量中
    strFileContent = objStream.ReadText

    ' 关闭文件流
    objStream.Close

    ' 释放对象
    Set objStream = Nothing

    ' 在此处处理文件内容
    MsgBox strFileContent
End Sub