一个关于二进制文件的问题

可以，但需要改进。这样做的好处时速度很快，特别适用于大型文件的读取。
举例如下：

'读文件至变量
Private Sub Command1_Click()
dim FileName As String
Dim i As Integer, s As String, BB() As Byte
FileName="c:\1.dat"
If Dir(FileName) = "" Then Exit sub
i = FreeFile
ReDim BB(FileLen(FileName) - 1)'按文件长度读取
Open FileName For Binary As #i
Get #i, , BB
Close #i
s=bb '*****适用于非文本文件*****
's = StrConv(BB, vbUnicode) '*****适用于文本文件*****
End Sub