怎样用VB打开二进制文件,并用文本框显示出来

dim dd as Double Open "c:\1.txt" For Binary As #1 dd = LOF(1) Text1.Text = Input(dd, #1) Close #1